perm filename SOPT.PCO[S1,ALS] blob sn#405688 filedate 1978-12-25 generic text, type T, neo UTF8
 SST P  $MAINBLK       1       0       0   41504       0
 SST P  ERREX002       2       4       0       0       4
 LOC     0
 BGN 1,1,1
ERREX002 ENT P,2,L1  ERREXIT        1 1 1
 LDA 1,13
 CSP  SIO
 LCA '**** ERREXIT CALLED WITH CODE ='
 LDC I,31
 LDC I,31
 CSP  WRS
 LOD I,2,8
 LDC I,12
 CSP  WRI
 LOC    10
 CSP  WLN
 CSP  EIO
 LDC I,4097
 CSP  XIT
 RET P
L1 DEF        12
 SST P  ASSER003       2       4      12       0       4
 LOC     0
ASSER003 ENT P,2,L1  ASSERTFAIL     1 1 1
 LDA 2,12
 LOD A,2,8
 MOV 12
 LOD I,1,308
 LDC I,1
 ADI
 STR I,1,308
 LDA 1,13
 CSP  SIO
 LOC    10
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA '***** ERROR *****  ASSERTION #'
 LDC I,30
 LOC    20
 LDC I,30
 CSP  WRS
 LOD I,1,308
 LDC I,6
 CSP  WRI
 LCA ' FAILED :  '
 LDC I,11
 LDC I,11
 CSP  WRS
 LDA 2,12
 LOC    30
 LDC I,12
 LDC I,12
 CSP  WRS
 LCA '  *****'
 LDC I,7
 LDC I,7
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOD I,1,308
 LOC    40
 LOD I,1,308
 LOD I,1,308
 SBI
 DVI
 STR I,1,308
 MST 2,4,4
 LDC I,9999
 PAR I
 CUP P,2,ERREX002
 RET P
L1 DEF        24
 SST P  ASSER004       2       8      12       0       8
 LOC     0
ASSER004 ENT P,2,L1  ASSERT         1 1 1
 LDA 2,16
 LOD A,2,8
 MOV 12
 LOD I,1,308
 LDC I,1
 ADI
 STR I,1,308
 LOD B,2,12
 FJP L2
 LOC    10
 UJP L3
L2 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 LOC    20
 CSP  SIO
 LCA '***** ERROR *****  ASSERTION #'
 LDC I,30
 LDC I,30
 CSP  WRS
 LOD I,1,308
 LDC I,6
 CSP  WRI
 LCA ' FAILED :  '
 LDC I,11
 LOC    30
 LDC I,11
 CSP  WRS
 LDA 2,16
 LDC I,12
 LDC I,12
 CSP  WRS
 LCA '  *****'
 LDC I,7
 LDC I,7
 CSP  WRS
 LOC    40
 CSP  WLN
 CSP  EIO
 LOD I,1,308
 LOD I,1,308
 LOD I,1,308
 SBI
 DVI
 STR I,1,308
 MST 2,4,4
 LDC I,9999
 LOC    50
 PAR I
 CUP P,2,ERREX002
L3 LAB
 RET P
L1 DEF        28
 SST P  ERROR005       2       4       0       0       4
 LOC     0
ERROR005 ENT P,2,L1  ERROR          1 1 1
 LOD I,1,40364
 LDC I,1
 ADI
 CHK I,0,34359738367
 STR I,1,40364
 LDA 1,13
 CSP  SIO
 LCA ' *ERROR*  '
 LDC I,10
 LOC    10
 LDC I,10
 CSP  WRS
 CSP  EIO
 LOD I,2,8
 ORD
 CHK I,0,68
 XJP L2
L6 LAB
 LDA 1,13
 CSP  SIO
 LCA 'ABR OR NGR APPLIED TO NON-REAL'
 LOC    20
 LDC I,30
 LDC I,30
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L7 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FIXED-UP ADDRESS EXCEEDS 30-BIT S1 ADDRESS SPACE'
 LDC I,48
 LOC    30
 LDC I,48
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L8 LAB
 LDA 1,13
 CSP  SIO
 LCA 'CHK TYPE A APPLIED TO NON-ADDRESS'
 LDC I,33
 LDC I,33
 LOC    40
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L9 LAB
 LDA 1,13
 CSP  SIO
 LCA 'ALIGNMENT ERROR'
 LDC I,15
 LDC I,15
 CSP  WRS
 LOC    50
 CSP  WLN
 CSP  EIO
 UJP L5
L10 LAB
 LDA 1,13
 CSP  SIO
 LCA 'AND OR IOR APPLIED TO NON-BOOLEAN'
 LDC I,33
 LDC I,33
 CSP  WRS
 CSP  WLN
 LOC    60
 CSP  EIO
 UJP L5
L11 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INVALID OR CONFLICTING OPERAND TYPES FOR BINARY OPERATION'
 LDC I,57
 LDC I,57
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC    70
 UJP L5
L12 LAB
 LDA 1,13
 CSP  SIO
 LCA 'CHK CONSTANT OPERAND OUT OF SPECIFIED RANGE'
 LDC I,43
 LDC I,43
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L13 LAB
 LOC    80
 LDA 1,13
 CSP  SIO
 LCA 'CHK APPLIED TO INVALID OPERAND TYPE'
 LDC I,35
 LDC I,35
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L14 LAB
 LDA 1,13
 LOC    90
 CSP  SIO
 LCA 'CHR APPLIED TO NON-INTEGER'
 LDC I,26
 LDC I,26
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L15 LAB
 LDA 1,13
 CSP  SIO
 LOC   100
 LCA 'INVALID TYPE COERCION'
 LDC I,21
 LDC I,21
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L16 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INVALID OR CONFLICTING OPERAND TYPES FOR COMPARE OPERATION'
 LOC   110
 LDC I,58
 LDC I,58
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L17 LAB
 LDA 1,13
 CSP  SIO
 LCA 'COMPARE TYPE M APPLIED TO NON-ADDRESS'
 LDC I,37
 LOC   120
 LDC I,37
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L18 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FIXED-UP DISPLACEMENT EXCEEDS 25 BIT S1 LIMIT'
 LDC I,45
 LDC I,45
 LOC   130
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L19 LAB
 LDA 1,13
 CSP  SIO
 LCA 'EXPRESSION TOO COMPLEX (OR TOTAL PROC NESTING TOO DEEP)'
 LDC I,55
 LDC I,55
 CSP  WRS
 LOC   140
 CSP  WLN
 CSP  EIO
 UJP L5
L20 LAB
 LDA 1,13
 CSP  SIO
 LCA 'STACK TOP MUST BE FILE ADDRESS'
 LDC I,30
 LDC I,30
 CSP  WRS
 CSP  WLN
 LOC   150
 CSP  EIO
 UJP L5
L21 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FJP WITH NON-BOOLEAN STACK TOP'
 LDC I,30
 LDC I,30
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   160
 UJP L5
L22 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FJP WITH NON-SINGLETON EXPR STACK'
 LDC I,33
 LDC I,33
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L23 LAB
 LOC   170
 LDA 1,13
 CSP  SIO
 LCA 'FLO OR FLT APPLIED TO INVALID OPERAND TYPE'
 LDC I,42
 LDC I,42
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L24 LAB
 LDA 1,13
 LOC   180
 CSP  SIO
 LCA 'FUNCTION CALLS NESTED TOO DEEPLY IN EXPRESSION'
 LDC I,46
 LDC I,46
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L25 LAB
 LDA 1,13
 CSP  SIO
 LOC   190
 LCA 'INCOMPATIBLE TYPES FOR STORING'
 LDC I,30
 LDC I,30
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L26 LAB
 LDA 1,13
 CSP  SIO
 LCA 'IND ON (SHIFTED) INDEX WITHOUT BASE'
 LOC   200
 LDC I,35
 LDC I,35
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L27 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INDEXING WITHIN FAST (REGISTER) PARAMETER AREA'
 LDC I,46
 LOC   210
 LDC I,46
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L28 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INN ON NON-SET SECOND OPERAND'
 LDC I,29
 LDC I,29
 LOC   220
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L29 LAB
 LDA 1,13
 CSP  SIO
 LCA 'TYPE IN P-CODE COMMAND DIFFERENT'
 LDC I,32
 LDC I,32
 CSP  WRS
 LOC   230
 LCA ' FROM TYPE OF STACK TOP.'
 LDC I,24
 LDC I,24
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L30 LAB
 LDA 1,13
 CSP  SIO
 LCA 'CUP WITH INSUFFICIENT PARAMETERS ON STACK'
 LOC   240
 LDC I,41
 LDC I,41
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L31 LAB
 LDA 1,13
 CSP  SIO
 LCA 'DVI OR MOD BY INTEGER CONSTANT ZERO'
 LDC I,35
 LOC   250
 LDC I,35
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L32 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INVALID STANDARD PROCEDURE NAME'
 LDC I,31
 LDC I,31
 LOC   260
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L33 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INVALID P-CODE OPCODE'
 LDC I,21
 LDC I,21
 CSP  WRS
 LOC   270
 CSP  WLN
 CSP  EIO
 UJP L5
L34 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INVALID TRACE ARGUMENT'
 LDC I,22
 LDC I,22
 CSP  WRS
 CSP  WLN
 LOC   280
 CSP  EIO
 UJP L5
L35 LAB
 LDA 1,13
 CSP  SIO
 LCA 'LDC TYPE ARGUMENT INVALID'
 LDC I,25
 LDC I,25
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   290
 UJP L5
L36 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FIXED-UP DISPLACEMENT EXCEEDS 25 BIT S1 LIMIT'
 LDC I,45
 LDC I,45
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L37 LAB
 LOC   300
 LDA 1,13
 CSP  SIO
 LCA 'INVALID IMPLICIT TYPE COERCION'
 LDC I,30
 LDC I,30
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L38 LAB
 LDA 1,13
 LOC   310
 CSP  SIO
 LCA 'INVALID LEVEL IN P-CODE INSTRUCTION'
 LDC I,35
 LDC I,35
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L39 LAB
 LDA 1,13
 CSP  SIO
 LOC   320
 LCA 'INVALID TYPE ON P-CODE INSTRUCTION'
 LDC I,34
 LDC I,34
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L40 LAB
 LDA 1,13
 CSP  SIO
 LCA 'IXA ON NON-ADDRESS FIRST OPERAND'
 LOC   330
 LDC I,32
 LDC I,32
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L41 LAB
 LDA 1,13
 CSP  SIO
 LCA 'LAST SST PARAMETER BIGGER THAN MAXPAREG'
 LDC I,39
 LOC   340
 LDC I,39
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L42 LAB
 LDA 1,13
 CSP  SIO
 LCA 'UNDEFINED LABEL :  L'
 LDC I,20
 LDC I,20
 LOC   350
 CSP  WRS
 LOD I,1,332
 MST 2,4,4
 LOD I,1,332
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  WLN
 CSP  EIO
 UJP L5
L43 LAB
 LOC   360
 LDA 1,13
 CSP  SIO
 LCA 'IND LOADING STRING (INDIRECT THRU STRING CONSTANT ILLEGAL)'
 LDC I,58
 LDC I,58
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L44 LAB
 LDA 1,13
 LOC   370
 CSP  SIO
 LCA 'MOV WITH NON-ADDRESS OPERAND(S)'
 LDC I,31
 LDC I,31
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L45 LAB
 LDA 1,13
 CSP  SIO
 LOC   380
 LCA 'MST SPECIFIED INSUFFICIENT PARAMETER STORAGE'
 LDC I,44
 LDC I,44
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L46 LAB
 LDA 1,13
 CSP  SIO
 LCA 'MST WITHOUT CORRESPONDING CUP IN LAST SEGMENT'
 LOC   390
 LDC I,45
 LDC I,45
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L47 LAB
 LDA 1,13
 CSP  SIO
 LCA 'MULTIPLY DEFINED LABEL'
 LDC I,22
 LOC   400
 LDC I,22
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L48 LAB
 LDA 1,13
 CSP  SIO
 LCA 'TOTAL PROC NESTING TOO DEEP (OR SOME EXPR TOO COMPLEX)'
 LDC I,54
 LDC I,54
 LOC   410
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L49 LAB
 LDA 1,13
 CSP  SIO
 LCA 'NEW OPERANDS NOT (1) ADDRESS AND (2) INTEGER'
 LDC I,44
 LDC I,44
 CSP  WRS
 LOC   420
 CSP  WLN
 CSP  EIO
 UJP L5
L50 LAB
 LDA 1,13
 CSP  SIO
 LCA 'IND APPLIED TO NON-ADDRESS TYPE'
 LDC I,31
 LDC I,31
 CSP  WRS
 CSP  WLN
 LOC   430
 CSP  EIO
 UJP L5
L51 LAB
 LDA 1,13
 CSP  SIO
 LCA 'INC, DEC, PRE, OR SUC APPLIED TO NON-DISCRETE TYPE'
 LDC I,50
 LDC I,50
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   440
 UJP L5
L52 LAB
 LDA 1,13
 CSP  SIO
 LCA 'NOT APPLIED TO NON-BOOLEAN'
 LDC I,26
 LDC I,26
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L53 LAB
 LOC   450
 LDA 1,13
 CSP  SIO
 LCA 'IND APPLIED TO NIL'
 LDC I,18
 LDC I,18
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L54 LAB
 LDA 1,13
 LOC   460
 CSP  SIO
 LCA 'ODD APPLIED TO NON-INTEGER'
 LDC I,26
 LDC I,26
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L55 LAB
 LDA 1,13
 CSP  SIO
 LOC   470
 LCA 'ORD OPERAND NOT INTEGER, BOOLEAN, OR CHAR'
 LDC I,41
 LDC I,41
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L56 LAB
 LDA 1,13
 CSP  SIO
 LCA 'POP OF EMPTY EXPR STACK (STACK UNDERFLOW)'
 LOC   480
 LDC I,41
 LDC I,41
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L57 LAB
 LDA 1,13
 CSP  SIO
 LCA 'DVR BY REAL CONSTANT ZERO'
 LDC I,25
 LOC   490
 LDC I,25
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L58 LAB
 LDA 1,13
 CSP  SIO
 LCA 'MST SPECIFIED INSUFFICIENT REGISTER PARAMETER STORAGE'
 LDC I,53
 LDC I,53
 LOC   500
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L59 LAB
 LDA 1,13
 CSP  SIO
 LCA 'RST OPERAND NOT ADDRESS'
 LDC I,23
 LDC I,23
 CSP  WRS
 LOC   510
 CSP  WLN
 CSP  EIO
 UJP L5
L60 LAB
 LDA 1,13
 CSP  SIO
 LCA 'SAV OPERAND NOT ADDRESS'
 LDC I,23
 LDC I,23
 CSP  WRS
 CSP  WLN
 LOC   520
 CSP  EIO
 UJP L5
L61 LAB
 LDA 1,13
 CSP  SIO
 LCA 'SET OPERATION APPLIED TO NON-SET'
 LDC I,32
 LDC I,32
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   530
 UJP L5
L62 LAB
 LDA 1,13
 CSP  SIO
 LCA 'SGS OR INN (FIRST) OPERAND NOT INTEGER, BOOLEAN, OR CHAR'
 LDC I,56
 LDC I,56
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L63 LAB
 LOC   540
 LDA 1,13
 CSP  SIO
 LCA 'SIO DIDNT SEE FILE ADDR'
 LDC I,23
 LDC I,23
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L64 LAB
 LDA 1,13
 LOC   550
 CSP  SIO
 LCA 'SIO OPERAND NOT ADDRESS'
 LDC I,23
 LDC I,23
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L65 LAB
 LDA 1,13
 CSP  SIO
 LOC   560
 LCA 'SQI OR SQR OPERAND TYPE INVALID'
 LDC I,31
 LDC I,31
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L66 LAB
 LDA 1,13
 CSP  SIO
 LCA 'SST AND ENT INCONSISTENT'
 LOC   570
 LDC I,24
 LDC I,24
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L67 LAB
 LDA 1,13
 CSP  SIO
 LCA 'SST AND RET INCONSISTENT'
 LDC I,24
 LOC   580
 LDC I,24
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L68 LAB
 LDA 1,13
 CSP  SIO
 LCA 'EXPR STACK LEFT NONEMPTY IN LAST SEGMENT'
 LDC I,40
 LDC I,40
 LOC   590
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L69 LAB
 LDA 1,13
 CSP  SIO
 LCA 'EXPRESSION STACK SHOULD HAVE BEEN '
 LDC I,34
 LDC I,34
 CSP  WRS
 LOC   600
 LCA 'EMPTY AFTER LAST INSTRUCTION'
 LDC I,28
 LDC I,28
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L70 LAB
 LDA 1,13
 CSP  SIO
 LCA 'EXPRESSION STACK SHOULD HAVE '
 LOC   610
 LDC I,29
 LDC I,29
 CSP  WRS
 LCA 'CONTAINED EXACTLY ONE ELEMENT '
 LDC I,30
 LDC I,30
 CSP  WRS
 LCA 'AFTER LAST INSTRUCTION'
 LDC I,22
 LDC I,22
 LOC   620
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L71 LAB
 LDA 1,13
 CSP  SIO
 LCA 'TRC OPERAND TYPE INVALID'
 LDC I,24
 LDC I,24
 CSP  WRS
 LOC   630
 CSP  WLN
 CSP  EIO
 UJP L5
L72 LAB
 LDA 1,13
 CSP  SIO
 LCA 'UJP WITH NONEMPTY EXPR STACK'
 LDC I,28
 LDC I,28
 CSP  WRS
 CSP  WLN
 LOC   640
 CSP  EIO
 UJP L5
L73 LAB
 LDA 1,13
 CSP  SIO
 LCA 'WRONG COMPARE OPERATOR FOR GIVEN OPERAND TYPES'
 LDC I,46
 LDC I,46
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   650
 UJP L5
L74 LAB
 LDA 1,13
 CSP  SIO
 LCA 'XJP WITH NON-SINGLETON EXPR STACK'
 LDC I,33
 LDC I,33
 CSP  WRS
 CSP  WLN
 CSP  EIO
 UJP L5
L2 DEF         0
L3 DEF        68
L4 LAB
 LOC   660
 UJP L6
 UJP L7
 UJP L8
 UJP L9
 UJP L10
 UJP L11
 UJP L12
 UJP L13
 UJP L14
 UJP L15
 LOC   670
 UJP L16
 UJP L17
 UJP L18
 UJP L19
 UJP L20
 UJP L21
 UJP L22
 UJP L23
 UJP L24
 UJP L25
 LOC   680
 UJP L26
 UJP L27
 UJP L28
 UJP L29
 UJP L30
 UJP L31
 UJP L32
 UJP L33
 UJP L34
 UJP L35
 LOC   690
 UJP L36
 UJP L37
 UJP L38
 UJP L39
 UJP L40
 UJP L42
 UJP L41
 UJP L43
 UJP L44
 UJP L45
 LOC   700
 UJP L46
 UJP L47
 UJP L48
 UJP L49
 UJP L50
 UJP L51
 UJP L52
 UJP L53
 UJP L54
 UJP L55
 LOC   710
 UJP L56
 UJP L57
 UJP L58
 UJP L59
 UJP L60
 UJP L61
 UJP L62
 UJP L63
 UJP L64
 UJP L65
 LOC   720
 UJP L66
 UJP L67
 UJP L68
 UJP L69
 UJP L70
 UJP L71
 UJP L72
 UJP L73
 UJP L74
L5 LAB
 LDC B,0
 LOC   730
 NOT
 FJP L75
 MST 2,4,4
 LCA 'ERROR    999'
 PAR A
 CUP P,2,ASSER003
L75 LAB
 MST 2,4,4
 LDC I,1000
 PAR I
 CUP P,2,ERREX002
 LOC   740
 RET P
L1 DEF        12
 SST P  PRINT010       2       8       0       8       8
 LOC     0
PRINT010 ENT P,2,L1  PRINTSET       1 1 1
 LDA 1,13
 CSP  SIO
 LCA ' ['
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 LDC I,0
 STR I,2,20
 LOC    10
 LDC I,0
 CHK I,0,63
 STR I,2,16
 LDC I,63
 CHK I,0,63
 STR I,2,24
 LOD I,2,16
 LOD I,2,24
 LEQ I
 FJP L3
L2 LAB
 LOC    20
 LOD I,2,16
 CHK S,0,63
 LOD S,2,8
 INN
 FJP L4
 LOD I,2,20
 LDC I,20
 GRT I
 FJP L5
 LDA 1,13
 LOC    30
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA '                 '
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  EIO
 LOC    40
 LDC I,0
 STR I,2,20
L5 LAB
 LDA 1,13
 CSP  SIO
 LOD I,2,16
 LDC I,3
 CSP  WRI
 CSP  EIO
 LOD I,2,20
 LDC I,1
 LOC    50
 ADI
 STR I,2,20
L4 LAB
 LOD I,2,16
 LOD I,2,24
 NEQ I
 FJP L3
 LOD I,2,16
 INC I,1
 CHK I,0,63
 STR I,2,16
 LOC    60
 UJP L2
L3 LAB
 LDA 1,13
 CSP  SIO
 LCA '].'
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF        28
 SST P  PRINT011       2       4       0       0       4
 LOC     0
PRINT011 ENT P,2,L1  PRINTMEMOREG   1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 FJP L2
 LOD A,2,8
 IND I,4
 LDC I,4
 EQU I
 LOC    10
 FJP L3
 LDA 1,13
 CSP  SIO
 LCA 'RTA'
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 UJP L4
L3 LAB
 LOD A,2,8
 LOC    20
 IND I,4
 LDC I,6
 EQU I
 FJP L5
 LDA 1,13
 CSP  SIO
 LCA 'RTB'
 LDC I,3
 LDC I,3
 CSP  WRS
 LOC    30
 CSP  EIO
 UJP L6
L5 LAB
 LDA 1,13
 CSP  SIO
 LDC C,'R'
 LDC I,1
 CSP  WRC
 LOD A,2,8
 IND I,4
 ORD
 LOC    40
 MST 2,4,4
 LOD A,2,8
 IND I,4
 ORD
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  EIO
L6 LAB
L4 LAB
 UJP L7
L2 LAB
 LOD A,2,8
 LOC    50
 IND I,8
 LDC I,0
 EQU I
 FJP L8
 LDA 1,13
 CSP  SIO
 LOD A,2,8
 IND I,4
 MST 2,4,4
 LOD A,2,8
 LOC    60
 IND I,4
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  EIO
 UJP L9
L8 LAB
 LDA 1,13
 CSP  SIO
 LCA '<L'
 LDC I,2
 LOC    70
 LDC I,2
 CSP  WRS
 LOD A,2,8
 IND I,8
 MST 2,4,4
 LOD A,2,8
 IND I,8
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LOC    80
 LDC C,','
 LDC I,1
 CSP  WRC
 LOD A,2,8
 IND I,4
 MST 2,4,4
 LOD A,2,8
 IND I,4
 PAR I
 CUP I,2,FLDW0001
 LOC    90
 CSP  WRI
 LDC C,'>'
 LDC I,1
 CSP  WRC
 CSP  EIO
L9 LAB
L7 LAB
 RET P
L1 DEF        12
 SST P  PRINT012       2       4       0      12       4
 LOC     0
PRINT012 ENT P,2,L1  PRINTDATUM     1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,24
 LDA 1,13
 CSP  SIO
 LCA '         STK['
 LOC    10
 LDC I,13
 LDC I,13
 CSP  WRS
 LOD I,2,8
 MST 2,4,4
 LOD I,2,8
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LCA '] IS'
 LOC    20
 LDC I,4
 LDC I,4
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA '         TYP'
 LDC I,12
 LDC I,12
 LOC    30
 CSP  WRS
 LDA 1,30724
 LOD A,2,24
 IND I,4
 CHK J,0,15
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 LCA ' = '
 LOC    40
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 LOD A,2,24
 IND I,4
 LDC I,13
 EQU I
 MST 2,4,4
 LOD I,2,8
 LOC    50
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 FJP L2
 LDA 1,13
 CSP  SIO
 LOD A,2,24
 IND R,52
 LDC I,14
 LOC    60
 LDC I,0
 CSP  WRR
 CSP  WLN
 CSP  EIO
 UJP L3
L2 LAB
 LOD A,2,24
 IND I,4
 LDC I,7
 EQU I
 MST 2,4,4
 LOC    70
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 FJP L4
 MST 2,8,8
 LOD A,2,24
 IND S,44
 PAR S
 LOC    80
 CUP P,2,PRINT010
 UJP L5
L4 LAB
 LOD A,2,24
 IND I,4
 LDC I,5
 EQU I
 LOD A,2,24
 IND I,8
 LDC I,1
 EQU I
 LOC    90
 AND
 FJP L6
 LDA 1,13
 CSP  SIO
 LCA 'BJUMP WITH'
 LDC I,10
 LDC I,10
 CSP  WRS
 LOD A,2,24
 IND I,12
 LOC   100
 LDC I,3
 CSP  WRI
 LCA ' TRUE JUMPS AND'
 LDC I,15
 LDC I,15
 CSP  WRS
 LOD A,2,24
 IND I,24
 LDC I,3
 CSP  WRI
 LOC   110
 LCA ' FALSE JUMPS.'
 LDC I,13
 LDC I,13
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA '         BJUMPON IS '
 LDC I,20
 LOC   120
 LDC I,20
 CSP  WRS
 CSP  EIO
 LOD A,2,24
 IND B,40
 FJP L7
 LDA 1,13
 CSP  SIO
 LCA 'TRUE'
 LDC I,4
 LOC   130
 LDC I,4
 CSP  WRS
 CSP  EIO
 UJP L8
L7 LAB
 LDA 1,13
 CSP  SIO
 LCA 'FALSE'
 LDC I,5
 LDC I,5
 CSP  WRS
 LOC   140
 CSP  EIO
L8 LAB
 LDA 1,13
 CSP  SIO
 LCA ' AND FALL THRU SKIP IS'
 LDC I,22
 LDC I,22
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDC I,0
 LOC   150
 STR I,2,20
 MST 2,8,8
 LDA 2,20
 PAR A
 LOD A,2,24
 IND A,36
 CHK A,-1,0
 PAR A
 CUP P,4,DISAS007
 LOD A,2,24
 LOC   160
 IND A,20
 CHK A,-1,0
 STR A,2,12
 LDC I,1
 STR I,2,16
 LOD A,2,24
 IND I,12
 STR I,2,28
 LOD I,2,16
 LOD I,2,28
 LOC   170
 LEQ I
 FJP L10
L9 LAB
 LOD A,2,12
 LDC N
 NEQ A
 NOT
 FJP L11
 MST 2,4,4
 LCA 'PRINTDATU001'
 PAR A
 LOC   180
 CUP P,2,ASSER003
L11 LAB
 MST 2,4,4
 LOD A,2,12
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,12
 LOD I,2,16
 LOD I,2,28
 LOC   190
 NEQ I
 FJP L10
 LOD I,2,16
 INC I,1
 STR I,2,16
 UJP L9
L10 LAB
 LOD A,2,24
 IND A,32
 CHK A,-1,0
 STR A,2,12
 LOC   200
 LDC I,1
 STR I,2,16
 LOD A,2,24
 IND I,24
 STR I,2,28
 LOD I,2,16
 LOD I,2,28
 LEQ I
 FJP L13
L12 LAB
 LOD A,2,12
 LOC   210
 LDC N
 NEQ A
 NOT
 FJP L14
 MST 2,4,4
 LCA 'PRINTDATU001'
 PAR A
 CUP P,2,ASSER003
L14 LAB
 MST 2,4,4
 LOD A,2,12
 LOC   220
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,12
 LOD I,2,16
 LOD I,2,28
 NEQ I
 FJP L13
 LOD I,2,16
 LOC   230
 INC I,1
 STR I,2,16
 UJP L12
L13 LAB
 UJP L15
L6 LAB
 LDA 1,13
 CSP  SIO
 LOD A,2,24
 IND I,56
 ORD
 LDC I,1
 LOC   240
 CSP  WRI
 LCA ': ('
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 MST 2,4,4
 LOD A,2,24
 INC A,60
 PAR A
 LOC   250
 CUP P,2,PRINT011
 LOD A,2,24
 IND I,72
 LDC I,0
 GRT I
 FJP L16
 LDA 1,13
 CSP  SIO
 LCA ', '
 LDC I,2
 LOC   260
 LDC I,2
 CSP  WRS
 LOD A,2,24
 IND I,80
 ORD
 LDC I,1
 CSP  WRI
 LCA ': ('
 LDC I,3
 LDC I,3
 LOC   270
 CSP  WRS
 CSP  EIO
 MST 2,4,4
 LOD A,2,24
 INC A,84
 PAR A
 CUP P,2,PRINT011
 LDA 1,13
 CSP  SIO
 LCA ')*'
 LOC   280
 LDC I,2
 LDC I,2
 CSP  WRS
 LDA 1,4864
 LOD A,2,24
 IND I,76
 CHK J,0,34
 IXA 4
 IND I,0
 LDC I,1
 LOC   290
 CSP  WRI
 CSP  EIO
L16 LAB
 LOD A,2,24
 IND I,72
 LDC I,2
 EQU I
 FJP L17
 LDA 1,13
 CSP  SIO
 LCA ', '
 LOC   300
 LDC I,2
 LDC I,2
 CSP  WRS
 LOD A,2,24
 IND I,100
 ORD
 LDC I,1
 CSP  WRI
 LCA ': ('
 LDC I,3
 LOC   310
 LDC I,3
 CSP  WRS
 CSP  EIO
 MST 2,4,4
 LOD A,2,24
 INC A,104
 PAR A
 CUP P,2,PRINT011
 LDA 1,13
 CSP  SIO
 LOC   320
 LCA ')*'
 LDC I,2
 LDC I,2
 CSP  WRS
 LDA 1,4864
 LOD A,2,24
 IND I,96
 CHK J,0,34
 IXA 4
 IND I,0
 LOC   330
 LDC I,1
 CSP  WRI
 CSP  EIO
L17 LAB
 LDA 1,13
 CSP  SIO
 LCA ').'
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  WLN
 LOC   340
 CSP  EIO
L15 LAB
L5 LAB
L3 LAB
 LDA 1,13
 CSP  SIO
 LCA '         CODE STARTS WITH THE INSTRUCTION '
 LDC I,42
 LDC I,42
 CSP  WRS
 CSP  EIO
 LOD A,2,24
 IND A,0
 LOC   350
 LOD A,1,328
 EQU A
 FJP L18
 LDA 1,13
 CSP  SIO
 LCA 'AT NEWINSTREC.'
 LDC I,14
 LDC I,14
 CSP  WRS
 CSP  WLN
 LOC   360
 CSP  EIO
 UJP L19
L18 LAB
 LDA 1,13
 CSP  SIO
 LDA 1,24872
 MST 2,4,4
 LOD A,2,24
 IND A,0
 CHK A,-1,0
 PAR A
 LOC   370
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 15
 LDC I,15
 LDC I,15
 CSP  WRS
 CSP  WLN
 CSP  EIO
L19 LAB
 RET P
L1 DEF        32
 SST P  PRINT013       2       4       0       0       4
 LOC     0
PRINT013 ENT P,2,L1  PRINT_NESTIT   1 1 1
 LDA 1,39928
 LOD I,2,8
 CHK J,0,8
 IXA 48
 STR A,2,12
 LDA 1,13
 CSP  SIO
 LCA ' NESTDISPLAY['
 LDC I,13
 LOC    10
 LDC I,13
 CSP  WRS
 LOD I,2,8
 MST 2,4,4
 LOD I,2,8
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LCA '] IS'
 LDC I,4
 LOC    20
 LDC I,4
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD A,2,12
 LOC    30
 INC A,4
 LDC I,8
 LDC I,8
 CSP  WRS
 LCA ' TYP'
 LDC I,4
 LDC I,4
 CSP  WRS
 LDA 1,30724
 LOD A,2,12
 LOC    40
 IND I,0
 CHK J,0,15
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 LCA '  AREAS '
 LDC I,8
 LDC I,8
 CSP  WRS
 LOC    50
 LOD A,2,12
 IND I,28
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,44
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,40
 LOC    60
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,36
 LDC I,12
 CSP  WRI
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC    70
 LCA ' DISPLACEMENTS'
 LDC I,14
 LDC I,14
 CSP  WRS
 LOD A,2,12
 IND I,32
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,24
 LOC    80
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,20
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,16
 LDC I,12
 CSP  WRI
 LOC    90
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF        16
 SST P  PRINT014       2       4       0       0       4
 LOC     0
PRINT014 ENT P,2,L1  PRINT_MSTENT   1 1 1
 LDA 1,39476
 LOD I,1,39924
 CHK J,0,15
 IXA 28
 STR A,2,12
 LDA 1,13
 CSP  SIO
 LCA ' MSTSTK['
 LDC I,8
 LOC    10
 LDC I,8
 CSP  WRS
 LOD I,2,8
 MST 2,4,4
 LOD I,2,8
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LCA '] IS'
 LDC I,4
 LOC    20
 LDC I,4
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA ' LEV'
 LDC I,4
 LDC I,4
 CSP  WRS
 LOC    30
 LOD A,2,12
 IND I,0
 LDC I,2
 CSP  WRI
 LCA ',  EXPR'
 LDC I,7
 LDC I,7
 CSP  WRS
 LOD A,2,12
 IND I,4
 LOC    40
 LDC I,3
 CSP  WRI
 LCA ',  PREGS'
 LDC I,8
 LDC I,8
 CSP  WRS
 LOD A,2,12
 IND I,8
 LDC I,3
 CSP  WRI
 LOC    50
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA ' EVALSAVE'
 LDC I,9
 LDC I,9
 CSP  WRS
 LOD A,2,12
 IND I,20
 LOC    60
 MST 2,4,4
 LOD A,2,12
 IND I,20
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LCA ',  AREAS'
 LDC I,8
 LDC I,8
 CSP  WRS
 LOC    70
 LOD A,2,12
 IND I,12
 LDC I,12
 CSP  WRI
 LOD A,2,12
 IND I,16
 LDC I,12
 CSP  WRI
 CSP  WLN
 CSP  EIO
 LOC    80
 RET P
L1 DEF        16
 SST P  PRINT015       2       0       0       4       0
 SST P  PRINT016       3       4       0       4       4
 LOC     0
PRINT016 ENT P,3,L1  PRINTNAM       1 1 1
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 LDC I,1
 CHK I,0,8
 LOC    10
 STR I,3,12
 LOD A,3,8
 IND I,8
 CHK I,0,8
 STR I,3,16
 LOD I,3,12
 LOD I,3,16
 LEQ I
 FJP L3
L2 LAB
 LDA 1,13
 LOC    20
 CSP  SIO
 LOD A,3,8
 LOD I,3,12
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOC    30
 LOD I,3,12
 LOD I,3,16
 NEQ I
 FJP L3
 LOD I,3,12
 INC I,1
 CHK I,0,8
 STR I,3,12
 UJP L2
L3 LAB
 RET P
L1 DEF        20
 SST P  PRINT017       3       4       0       0       4
 LOC     0
PRINT017 ENT P,3,L1  PRINTTYP       1 1 1
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 LDA 1,30724
 LOD I,3,8
 CHK J,0,15
 LOC    10
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 CSP  EIO
 RET P
L1 DEF        12
 SST P  PRINT018       3       4       0       0       4
 LOC     0
PRINT018 ENT P,3,L1  PRINTINT       1 1 1
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 LOD I,3,8
 MST 2,4,4
 LOD I,3,8
 LOC    10
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  EIO
 RET P
L1 DEF        12
 LOC     0
PRINT015 ENT P,2,L1  PRINTNXTINST   1 1 1
 LOD I,1,44
 LDC I,24
 EQU I
 LOD I,1,44
 LDC I,10
 EQU I
 IOR
 LOD I,1,44
 LDC I,13
 LOC    10
 EQU I
 IOR
 FJP L2
 MST 3,4,4
 LDA 1,112
 PAR A
 CUP P,2,PRINT016
 UJP L3
L2 LAB
 LDA 1,13
 CSP  SIO
 LOC    20
 LDC C,' '
 LDC I,1
 CSP  WRC
 CSP  EIO
L3 LAB
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 LOC    30
 LDA 1,48
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L4
L8 LAB
 UJP L7
L9 LAB
 LOC    40
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOC    50
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 MST 3,4,4
 LDA 1,88
 PAR A
 CUP P,2,PRINT016
 MST 3,4,4
 LOD I,1,68
 PAR I
 LOC    60
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,64
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,60
 PAR I
 CUP P,2,PRINT018
 UJP L7
L10 LAB
 LOC    70
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,68
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,64
 LOC    80
 PAR I
 CUP P,2,PRINT018
 UJP L7
L11 LAB
 UJP L7
L12 LAB
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 UJP L7
L13 LAB
 MST 3,4,4
 LOC    90
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 MST 3,4,4
 LOD I,1,72
 LOC   100
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,68
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,64
 PAR I
 CUP P,2,PRINT018
 LOC   110
 MST 3,4,4
 LOD I,1,60
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,56
 PAR I
 CUP P,2,PRINT018
 UJP L7
L14 LAB
 MST 3,4,4
 LOC   120
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 UJP L7
L15 LAB
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 LDA 1,100
 LCA 'PCODE   '
 LOC   130
 NEQ M,8
 FJP L16
 MST 3,4,4
 LDA 1,88
 PAR A
 CUP P,2,PRINT016
 LDA 1,88
 LDC I,1
 CHK J,1,8
 DEC I,1
 LOC   140
 IXA 1
 IND C,0
 LDC C,'A'
 EQU C
 LDA 1,100
 LCA 'S1CODE  '
 NEQ M,8
 AND
 FJP L17
 MST 3,4,4
 LOC   150
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
L17 LAB
L16 LAB
 UJP L7
L18 LAB
 UJP L7
L19 LAB
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 UJP L7
L20 LAB
 LOC   160
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,68
 PAR I
 CUP P,2,PRINT018
 UJP L7
L21 LAB
 MST 3,4,4
 LOC   170
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 UJP L7
L22 LAB
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 LOD I,1,52
 LOC   180
 LDC I,3
 EQU I
 FJP L23
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
L23 LAB
 UJP L7
L24 LAB
 MST 3,4,4
 LOD I,1,52
 LOC   190
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 UJP L7
L25 LAB
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 MST 3,4,4
 LOC   200
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 UJP L7
L26 LAB
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 MST 3,4,4
 LOC   210
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LOD I,1,68
 PAR I
 CUP P,2,PRINT018
 UJP L7
L27 LAB
 MST 3,4,4
 LDA 1,100
 LOC   220
 PAR A
 CUP P,2,PRINT016
 UJP L7
L28 LAB
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,2,PRINT017
 MST 3,4,4
 LOD I,1,72
 LOC   230
 PAR I
 CUP P,2,PRINT018
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,PRINT016
 UJP L7
L29 LAB
 MST 3,4,4
 LOD I,1,52
 CHK I,0,15
 LOC   240
 PAR I
 CUP P,2,PRINT017
 LOD I,1,52
 ORD
 CHK I,0,15
 XJP L30
L34 LAB
 MST 3,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 LOC   250
 UJP L33
L35 LAB
 LDA 1,13
 CSP  SIO
 LCA ' '''
 LDC I,2
 LDC I,2
 CSP  WRS
 LOD I,1,72
 CHR
 LDC I,1
 LOC   260
 CSP  WRC
 LDC C,'''
 LDC I,1
 CSP  WRC
 CSP  EIO
 UJP L33
L36 LAB
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LOC   270
 LDC I,2
 CSP  WRS
 LOD R,1,76
 LDC I,14
 LDC I,0
 CSP  WRR
 CSP  EIO
 UJP L33
L37 LAB
 UJP L33
L38 LAB
 MST 3,4,4
 LOC   280
 LOD I,1,72
 PAR I
 CUP P,2,PRINT018
 UJP L33
L39 LAB
 MST 2,8,8
 LOD S,1,80
 PAR S
 CUP P,2,PRINT010
 UJP L33
L30 DEF         4
L31 DEF        13
L32 LAB
 UJP L37
 LOC   290
 UJP L38
 UJP L35
 UJP L39
 UJP L33
 UJP L33
 UJP L34
 UJP L33
 UJP L33
 UJP L36
L33 LAB
 UJP L7
L41 LAB
 LOC   300
 LDA 1,13
 CSP  SIO
 LCA '  '''
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 LDC I,1
 CHK I,0,150
 STR I,2,8
 LOC   310
 LOD I,1,276
 CHK I,0,150
 STR I,2,12
 LOD I,2,8
 LOD I,2,12
 LEQ I
 FJP L43
L42 LAB
 LDA 1,13
 CSP  SIO
 LDA 1,124
 LOC   320
 LOD I,2,8
 CHK J,1,150
 DEC I,1
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD I,2,8
 LOD I,2,12
 LOC   330
 NEQ I
 FJP L43
 LOD I,2,8
 INC I,1
 CHK I,0,150
 STR I,2,8
 UJP L42
L43 LAB
 LDA 1,13
 CSP  SIO
 LDC C,'''
 LOC   340
 LDC I,1
 CSP  WRC
 CSP  EIO
 UJP L7
L4 DEF         0
L5 DEF        72
L6 LAB
 UJP L18
 UJP L18
 UJP L18
 UJP L18
 UJP L19
 UJP L26
 LOC   350
 UJP L18
 UJP L27
 UJP L28
 UJP L25
 UJP L12
 UJP L18
 UJP L18
 UJP L9
 UJP L18
 UJP L21
 LOC   360
 UJP L18
 UJP L18
 UJP L25
 UJP L25
 UJP L18
 UJP L18
 UJP L18
 UJP L19
 UJP L11
 UJP L19
 LOC   370
 UJP L41
 UJP L20
 UJP L29
 UJP L25
 UJP L19
 UJP L26
 UJP L18
 UJP L19
 UJP L18
 UJP L10
 LOC   380
 UJP L19
 UJP L18
 UJP L18
 UJP L18
 UJP L18
 UJP L18
 UJP L24
 UJP L18
 UJP L24
 UJP L18
 LOC   390
 UJP L18
 UJP L18
 UJP L18
 UJP L18
 UJP L18
 UJP L25
 UJP L13
 UJP L24
 UJP L8
 UJP L26
 LOC   400
 UJP L18
 UJP L14
 UJP L15
 UJP L18
 UJP L21
 UJP L18
 UJP L21
 UJP L18
 UJP L18
 UJP L18
 LOC   410
 UJP L18
 UJP L22
 UJP L22
 UJP L22
 UJP L22
 UJP L22
 UJP L22
L7 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 LOC   420
 CSP  EIO
 RET P
L1 DEF        16
 SST P  NEWCO019       2       4       0       0       4
 LOC     0
NEWCO019 ENT P,2,L1  NEWCODEREC     1 1 1
 LOD A,2,8
 NEW 12
 LOD A,2,8
 IND A,0
 CHK A,0,0
 LDC N
 CHK A,-1,0
 STO A
 LOD A,2,8
 LOC    10
 IND A,0
 CHK A,0,0
 INC A,4
 LDA 1,4568
 MOV 8
 RET P
L1 DEF        12
 SST I  GETFI020       2      12       0      12      12
 LOC     0
GETFI020 ENT I,2,L1  GETFIELD       1 1 1
 LOD I,1,41528
 LDC I,1
 ADI
 STR I,1,41528
 LOD A,2,8
 IND I,4
 STR I,2,24
 LOD A,2,8
 IND I,0
 LOC    10
 STR I,2,20
 LOD I,2,12
 LOD I,2,16
 ADI
 STR I,2,28
 LOD I,2,16
 LDC I,36
 LDC I,1
 SBI
 LEQ I
 LOC    20
 LDC I,0
 LOD I,2,24
 LEQ I
 AND
 LOD I,2,24
 LDA 1,4864
 LDC I,18
 CHK J,0,34
 IXA 4
 IND I,0
 LOC    30
 LES I
 AND
 LDC I,0
 LOD I,2,20
 LEQ I
 AND
 LOD I,2,20
 LDA 1,4864
 LDC I,18
 CHK J,0,34
 LOC    40
 IXA 4
 IND I,0
 LES I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'GETFIELD 001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOC    50
 LOD I,2,12
 LDC I,17
 LEQ I
 FJP L3
 LOD I,2,28
 LDC I,18
 GRT I
 FJP L4
 LOD I,2,24
 LDA 1,4864
 LOC    60
 LDC I,18
 LOD I,2,12
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 LDA 1,4864
 LOD I,2,28
 LDC I,18
 LOC    70
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MPI
 LOD I,2,20
 LDA 1,4864
 LDC I,36
 LOD I,2,28
 SBI
 LOC    80
 CHK J,0,34
 IXA 4
 IND I,0
 DVI
 ADI
 STR I,2,0
 UJP L5
L4 LAB
 LOD I,2,24
 LDA 1,4864
 LDC I,18
 LOC    90
 LOD I,2,12
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 LDA 1,4864
 LDC I,18
 LOD I,2,28
 SBI
 LOC   100
 CHK J,0,34
 IXA 4
 IND I,0
 DVI
 STR I,2,0
L5 LAB
 UJP L6
L3 LAB
 LOD I,2,20
 LDA 1,4864
 LDC I,36
 LOD I,2,12
 LOC   110
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 LDA 1,4864
 LDC I,36
 LOD I,2,28
 SBI
 CHK J,0,34
 LOC   120
 IXA 4
 IND I,0
 DVI
 STR I,2,0
L6 LAB
 RET I
L1 DEF        32
 SST I  GETSI021       2      12       0       4      12
 LOC     0
GETSI021 ENT I,2,L1  GETSIGNEDFIE   1 1 1
 LOD I,2,16
 LDC I,36
 LDC I,1
 SBI
 LEQ I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'GETSIGNED001'
 LOC    10
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,12,12
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,0,35
 PAR I
 LOD I,2,16
 CHK I,1,36
 LOC    20
 PAR I
 CUP I,6,GETFI020
 STR I,2,20
 LOD I,2,20
 LDA 1,4864
 LOD I,2,16
 LDC I,1
 SBI
 CHK J,0,34
 IXA 4
 LOC    30
 IND I,0
 GEQ I
 LOD I,2,16
 LDC I,36
 LES I
 AND
 FJP L3
 LOD I,2,16
 LDC I,34
 LEQ I
 LOC    40
 FJP L4
 LOD I,2,20
 LDA 1,4864
 LOD I,2,16
 CHK J,0,34
 IXA 4
 IND I,0
 SBI
 STR I,2,0
 UJP L5
L4 LAB
 LOC    50
 LOD I,2,20
 LDA 1,4864
 LDC I,34
 CHK J,0,34
 IXA 4
 IND I,0
 SBI
 STR I,2,20
 LOD I,2,20
 LDA 1,4864
 LOC    60
 LDC I,34
 CHK J,0,34
 IXA 4
 IND I,0
 SBI
 STR I,2,0
L5 LAB
 UJP L6
L3 LAB
 LOD I,2,20
 STR I,2,0
L6 LAB
 RET I
L1 DEF        24
 SST P  PUTFI022       2      16       0      16      16
 LOC     0
PUTFI022 ENT P,2,L1  PUTFIELD       1 1 1
 LOD I,2,16
 LDC I,36
 LDC I,1
 SBI
 LEQ I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'PUTFIELD 001'
 LOC    10
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD A,2,8
 IND I,4
 STR I,2,28
 LOD A,2,8
 IND I,0
 STR I,2,24
 LOD I,2,12
 LOD I,2,16
 LOC    20
 ADI
 STR I,2,36
 LDC I,0
 LOD I,2,28
 LEQ I
 LOD I,2,28
 LDA 1,4864
 LDC I,18
 CHK J,0,34
 IXA 4
 LOC    30
 IND I,0
 LES I
 AND
 LDC I,0
 LOD I,2,24
 LEQ I
 AND
 LOD I,2,24
 LDA 1,4864
 LDC I,18
 LOC    40
 CHK J,0,34
 IXA 4
 IND I,0
 LES I
 AND
 NOT
 FJP L3
 MST 2,4,4
 LCA 'PUTFIELD 002'
 PAR A
 LOC    50
 CUP P,2,ASSER003
L3 LAB
 LOD I,2,20
 LDC I,0
 LES I
 FJP L4
 LOD I,2,16
 LDC I,34
 LEQ I
 FJP L5
 LOD I,2,20
 LOC    60
 LDA 1,4864
 LOD I,2,16
 CHK J,0,34
 IXA 4
 IND I,0
 ADI
 STR I,2,20
 UJP L6
L5 LAB
 LOD I,2,20
 LDA 1,4864
 LOC    70
 LDC I,34
 CHK J,0,34
 IXA 4
 IND I,0
 ADI
 STR I,2,20
 LOD I,2,20
 LDA 1,4864
 LDC I,34
 CHK J,0,34
 LOC    80
 IXA 4
 IND I,0
 ADI
 STR I,2,20
L6 LAB
L4 LAB
 LDC I,0
 LOD I,2,20
 LEQ I
 NOT
 FJP L7
 MST 2,4,4
 LOC    90
 LCA 'PUTFIELD 003'
 PAR A
 CUP P,2,ASSER003
L7 LAB
 LOD I,2,16
 LDC I,34
 LEQ I
 FJP L8
 LOD I,2,20
 LDA 1,4864
 LOD I,2,16
 LOC   100
 CHK J,0,34
 IXA 4
 IND I,0
 LES I
 NOT
 FJP L9
 MST 2,4,4
 LCA 'PUTFIELD 004'
 PAR A
 CUP P,2,ASSER003
L9 LAB
L8 LAB
 LOC   110
 LOD I,2,12
 LDC I,17
 LEQ I
 FJP L10
 LOD I,2,36
 LDC I,18
 GRT I
 FJP L11
 LOD I,2,28
 LOD I,2,28
 LOC   120
 LDA 1,4864
 LDC I,18
 LOD I,2,12
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 SBI
 LOD I,2,20
 LOC   130
 LDA 1,4864
 LOD I,2,36
 LDC I,18
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 DVI
 ADI
 STR I,2,28
 LOC   140
 LOD I,2,24
 LDA 1,4864
 LDC I,36
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 LOD I,2,20
 LOC   150
 LDA 1,4864
 LOD I,2,36
 LDC I,18
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 LDA 1,4864
 LDC I,36
 LOC   160
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MPI
 ADI
 STR I,2,24
 UJP L12
L11 LAB
 LOD I,2,28
 LOC   170
 LOD I,2,28
 LDA 1,4864
 LDC I,18
 LOD I,2,12
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 SBI
 LOC   180
 LOD I,2,28
 LDA 1,4864
 LDC I,18
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MOD
 ADI
 LOC   190
 LOD I,2,20
 LDA 1,4864
 LDC I,18
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MPI
 ADI
 LOC   200
 STR I,2,28
L12 LAB
 UJP L13
L10 LAB
 LOD I,2,24
 LOD I,2,24
 LDA 1,4864
 LDC I,36
 LOD I,2,12
 SBI
 CHK J,0,34
 IXA 4
 LOC   210
 IND I,0
 MOD
 SBI
 LOD I,2,24
 LDA 1,4864
 LDC I,36
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 LOC   220
 IND I,0
 MOD
 ADI
 LOD I,2,20
 LDA 1,4864
 LDC I,36
 LOD I,2,36
 SBI
 CHK J,0,34
 IXA 4
 LOC   230
 IND I,0
 MPI
 ADI
 STR I,2,24
L13 LAB
 LOD A,2,8
 INC A,4
 LOD I,2,28
 STO I
 LOD A,2,8
 LOD I,2,24
 LOC   240
 STO I
 RET P
L1 DEF        40
 SST P  REAL$023       2       8       0      12       8
 LOC     0
REAL$023 ENT P,2,L1  REAL_TO_S1WO   1 1 1
 LDC R,0.0
 STR R,2,16
 LDC I,1
 NGI
 STR I,2,20
 LDC I,36
 CHK S,0,63
 LOD S,2,16
 INN
 LOC    10
 FJP L2
 LOD R,2,12
 STR R,2,16
 LDC I,0
 STR I,2,20
 LOD A,2,8
 LDA 1,4568
 MOV 8
 LDC I,0
 CHK I,0,63
 LOC    20
 STR I,2,24
 LDC I,36
 LDC I,1
 SBI
 CHK I,0,63
 STR I,2,28
 LOD I,2,24
 LOD I,2,28
 LEQ I
 FJP L4
L3 LAB
 LOC    30
 LOD I,2,24
 CHK S,0,63
 LOD S,2,16
 INN
 FJP L5
 MST 2,16,16
 LOD A,2,8
 PAR A
 LOD I,2,24
 CHK I,0,35
 LOC    40
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 CUP P,8,PUTFI022
L5 LAB
 LOD I,2,24
 LOD I,2,28
 NEQ I
 LOC    50
 FJP L4
 LOD I,2,24
 INC I,1
 CHK I,0,63
 STR I,2,24
 UJP L3
L4 LAB
 UJP L6
L2 LAB
 LDC I,0
 STR I,2,16
 LOD R,2,12
 LOC    60
 STR R,2,20
 LOD A,2,8
 LDA 1,4568
 MOV 8
 LDC I,36
 LDC I,1
 SBI
 CHK I,0,63
 STR I,2,24
 LDC I,0
 LOC    70
 CHK I,0,63
 STR I,2,28
 LOD I,2,24
 LOD I,2,28
 GEQ I
 FJP L8
L7 LAB
 LOD I,2,24
 CHK S,0,63
 LOD S,2,16
 INN
 LOC    80
 FJP L9
 MST 2,16,16
 LOD A,2,8
 PAR A
 LDC I,36
 LDC I,1
 SBI
 LOD I,2,24
 SBI
 CHK I,0,35
 LOC    90
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 CUP P,8,PUTFI022
L9 LAB
 LOD I,2,24
 LOD I,2,28
 NEQ I
 LOC   100
 FJP L8
 LOD I,2,24
 DEC I,1
 CHK I,0,63
 STR I,2,24
 UJP L7
L8 LAB
L6 LAB
 RET P
L1 DEF        32
 SST P  ZSYMB024       2      12       8       8      12
 LOC     0
ZSYMB024 ENT P,2,L1  ZSYMBOL_TO_S   1 1 1
 LDA 2,20
 LOD A,2,16
 MOV 8
 LOD A,2,8
 LDA 1,4568
 MOV 8
 LOD A,2,12
 LDA 1,4568
 MOV 8
 LOC    10
 LDC I,0
 STR I,2,28
 LDC I,1
 STR I,2,32
 LDC I,4
 STR I,2,36
 LOD I,2,32
 LOD I,2,36
 LEQ I
 FJP L3
L2 LAB
 LOC    20
 MST 2,16,16
 LOD A,2,8
 PAR A
 LOD I,2,28
 CHK I,0,35
 PAR I
 LDC I,9
 CHK I,1,36
 PAR I
 LDA 2,20
 LOC    30
 LOD I,2,32
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,0
 SBI
 PAR I
 CUP P,8,PUTFI022
 LOC    40
 LOD I,2,28
 LDC I,9
 ADI
 STR I,2,28
 LOD I,2,32
 LOD I,2,36
 NEQ I
 FJP L3
 LOD I,2,32
 INC I,1
 LOC    50
 STR I,2,32
 UJP L2
L3 LAB
 LDC I,0
 STR I,2,28
 LDC I,1
 STR I,2,32
 LDC I,4
 STR I,2,36
 LOD I,2,32
 LOD I,2,36
 LOC    60
 LEQ I
 FJP L5
L4 LAB
 MST 2,16,16
 LOD A,2,12
 PAR A
 LOD I,2,28
 CHK I,0,35
 PAR I
 LDC I,9
 CHK I,1,36
 LOC    70
 PAR I
 LDA 2,20
 LDC I,4
 LOD I,2,32
 ADI
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LOC    80
 LDC I,0
 SBI
 PAR I
 CUP P,8,PUTFI022
 LOD I,2,28
 LDC I,9
 ADI
 STR I,2,28
 LOD I,2,32
 LOD I,2,36
 LOC    90
 NEQ I
 FJP L5
 LOD I,2,32
 INC I,1
 STR I,2,32
 UJP L4
L5 LAB
 RET P
L1 DEF        40
 SST P  INTEG025       2       8       0       0       8
 LOC     0
INTEG025 ENT P,2,L1  INTEGER_TO_S   1 1 1
 LOD A,2,8
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LOD A,2,8
 PAR A
 LDC I,36
 LDC I,36
 LDC I,1
 LOC    10
 SBI
 SBI
 CHK I,0,35
 PAR I
 LDC I,36
 LDC I,1
 SBI
 CHK I,1,36
 PAR I
 LOD I,2,12
 LOC    20
 PAR I
 CUP P,8,PUTFI022
 LOD I,2,12
 LDC I,0
 LES I
 FJP L2
 MST 2,16,16
 LOD A,2,8
 PAR A
 LDC I,0
 LOC    30
 CHK I,0,35
 PAR I
 LDC I,36
 LDC I,36
 LDC I,1
 SBI
 SBI
 CHK I,1,36
 PAR I
 LDC I,1
 LOC    40
 NGI
 PAR I
 CUP P,8,PUTFI022
L2 LAB
 RET P
L1 DEF        16
 SST P  SETRE026       2      16       0       4      16
 LOC     0
SETRE026 ENT P,2,L1  SETREP_TO_S1   1 1 1
 LOD A,2,8
 LDA 1,4568
 MOV 8
 LOD A,2,12
 LDA 1,4568
 MOV 8
 LDC I,63
 CHK I,0,63
 STR I,2,24
 LOC    10
 LDC I,36
 CHK I,0,63
 STR I,2,28
 LOD I,2,24
 LOD I,2,28
 GEQ I
 FJP L3
L2 LAB
 LOD I,2,24
 CHK S,0,63
 LOD S,2,16
 LOC    20
 INN
 FJP L4
 MST 2,16,16
 LOD A,2,8
 PAR A
 LDC I,2
 LDC I,36
 MPI
 LDC I,1
 SBI
 LOC    30
 LOD I,2,24
 SBI
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 CUP P,8,PUTFI022
L4 LAB
 LOC    40
 LOD I,2,24
 LOD I,2,28
 NEQ I
 FJP L3
 LOD I,2,24
 DEC I,1
 CHK I,0,63
 STR I,2,24
 UJP L2
L3 LAB
 LDC I,36
 LOC    50
 LDC I,1
 SBI
 CHK I,0,63
 STR I,2,24
 LDC I,0
 CHK I,0,63
 STR I,2,28
 LOD I,2,24
 LOD I,2,28
 GEQ I
 LOC    60
 FJP L6
L5 LAB
 LOD I,2,24
 CHK S,0,63
 LOD S,2,16
 INN
 FJP L7
 MST 2,16,16
 LOD A,2,12
 PAR A
 LDC I,36
 LOC    70
 LDC I,1
 SBI
 LOD I,2,24
 SBI
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 LOC    80
 PAR I
 CUP P,8,PUTFI022
L7 LAB
 LOD I,2,24
 LOD I,2,28
 NEQ I
 FJP L6
 LOD I,2,24
 DEC I,1
 CHK I,0,63
 STR I,2,24
 LOC    90
 UJP L5
L6 LAB
 RET P
L1 DEF        32
 SST I  LABEL027       2       4       0       0       4
 LOC     0
LABEL027 ENT I,2,L1  LABELHASH      1 1 1
 LOD I,2,8
 ABI
 LDC I,197
 MOD
 CHK I,0,196
 STR I,2,0
 RET I
L1 DEF        12
 SST I  LABEL028       2       4       0       8       4
 LOC     0
LABEL028 ENT I,2,L1  LABELNUMBER    1 1 1
 LDC I,2
 CHK I,1,8
 STR I,2,12
 LDC I,0
 CHK I,0,99999
 STR I,2,16
L2 LAB
 LOD I,2,12
 LDC I,8
 LES I
 LOC    10
 LOD A,2,8
 LOD I,2,12
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,' '
 NEQ C
 AND
 FJP L3
 LOC    20
 LOD I,2,16
 LDC I,10
 MPI
 LOD A,2,8
 LOD I,2,12
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LOC    30
 ADI
 LDC C,'0'
 ORD
 SBI
 CHK I,0,99999
 STR I,2,16
 LOD I,2,12
 LDC I,1
 ADI
 CHK I,1,8
 LOC    40
 STR I,2,12
 UJP L2
L3 LAB
 LOD A,2,8
 LOD I,2,12
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,' '
 EQU C
 LOC    50
 FJP L4
 LOD I,2,16
 CHK I,1,99999
 STR I,2,0
 UJP L5
L4 LAB
 LOD I,2,16
 LDC I,10
 MPI
 LOD A,2,8
 LOD I,2,12
 LOC    60
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 ADI
 LDC C,'0'
 ORD
 SBI
 CHK I,1,99999
 LOC    70
 STR I,2,0
L5 LAB
 RET I
L1 DEF        20
 SST I  MIN00029       2       8       0       0       8
 LOC     0
MIN00029 ENT I,2,L1  MIN            1 1 1
 LOD I,2,8
 LOD I,2,12
 LES I
 FJP L2
 LOD I,2,8
 STR I,2,0
 UJP L3
L2 LAB
 LOD I,2,12
 STR I,2,0
L3 LAB
 LOC    10
 RET I
L1 DEF        16
 SST I  MAX00030       2       8       0       0       8
 LOC     0
MAX00030 ENT I,2,L1  MAX            1 1 1
 LOD I,2,8
 LOD I,2,12
 GRT I
 FJP L2
 LOD I,2,8
 STR I,2,0
 UJP L3
L2 LAB
 LOD I,2,12
 STR I,2,0
L3 LAB
 LOC    10
 RET I
L1 DEF        16
 SST I  POWER031       2       4       0       4       4
 LOC     0
POWER031 ENT I,2,L1  POWER2         1 1 1
 LOD I,2,8
 LDC I,0
 LEQ I
 FJP L2
 LDC I,999
 NGI
 STR I,2,0
 UJP L3
L2 LAB
 LOD I,2,8
 LOC    10
 LDC I,1
 EQU I
 FJP L4
 LDC I,0
 STR I,2,0
 UJP L5
L4 LAB
 LOD I,2,8
 ODD
 FJP L6
 LDC I,999
 LOC    20
 NGI
 STR I,2,0
 UJP L7
L6 LAB
 LOD I,2,8
 LDC I,2
 EQU I
 FJP L8
 LDC I,1
 STR I,2,0
 UJP L9
L8 LAB
 LOC    30
 LOD I,2,8
 LDC I,4
 EQU I
 FJP L10
 LDC I,2
 STR I,2,0
 UJP L11
L10 LAB
 LOD I,2,8
 LDC I,8
 EQU I
 LOC    40
 FJP L12
 LDC I,3
 STR I,2,0
 UJP L13
L12 LAB
 LOD I,2,8
 LDC I,16
 EQU I
 FJP L14
 LDC I,4
 STR I,2,0
 LOC    50
 UJP L15
L14 LAB
 LOD I,2,8
 LDC I,32
 EQU I
 FJP L16
 LDC I,5
 STR I,2,0
 UJP L17
L16 LAB
 LDC I,0
 STR I,2,12
L18 LAB
 LOC    60
 LOD I,2,12
 LDC I,1
 ADI
 STR I,2,12
 LOD I,2,8
 LDC I,2
 DVI
 STR I,2,8
 LOD I,2,8
 ODD
 LOC    70
 LOD I,2,8
 LDC I,32
 LEQ I
 IOR
 FJP L18
 LOD I,2,8
 LDC I,32
 EQU I
 FJP L19
 LOD I,2,12
 LOC    80
 LDC I,5
 ADI
 STR I,2,0
 UJP L20
L19 LAB
 LDC I,999
 NGI
 STR I,2,0
L20 LAB
L17 LAB
L15 LAB
L13 LAB
L11 LAB
L9 LAB
L7 LAB
L5 LAB
L3 LAB
 RET I
L1 DEF        16
 SST I  FLDW0001       2       4       0       4       4
 LOC     0
FLDW0001 ENT I,2,L1  FLDW           1 1 1
 LDC I,0
 STR I,2,12
 LOD I,2,8
 LDC I,0
 LES I
 FJP L2
 LDC I,1
 STR I,2,12
 LOD I,2,8
 LOC    10
 ABI
 STR I,2,8
L2 LAB
L3 LAB
 LOD I,2,8
 LDC I,10
 DVI
 STR I,2,8
 LOD I,2,12
 LDC I,1
 ADI
 STR I,2,12
 LOC    20
 LOD I,2,8
 LDC I,0
 EQU I
 FJP L3
 LOD I,2,12
 STR I,2,0
 RET I
L1 DEF        16
 SST P  CVOS$032       2       8       8       4       8
 LOC     0
CVOS$032 ENT P,2,L1  CVOS_S1WORD_   1 1 1
 LDA 2,16
 LOD A,2,12
 MOV 8
 LDC I,1
 CHK I,1,12
 STR I,2,24
 LDC I,12
 CHK I,1,12
 STR I,2,28
 LOC    10
 LOD I,2,24
 LOD I,2,28
 LEQ I
 FJP L3
L2 LAB
 LOD A,2,8
 LOD I,2,24
 CHK J,1,12
 DEC I,1
 IXA 1
 LDC C,'0'
 LOC    20
 ORD
 MST 2,12,12
 LDA 2,16
 PAR A
 LDC I,3
 LOD I,2,24
 LDC I,1
 SBI
 MPI
 CHK I,0,35
 LOC    30
 PAR I
 LDC I,3
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 ADI
 CHR
 CHK I,0,255
 STO C
 LOD I,2,24
 LOC    40
 LOD I,2,28
 NEQ I
 FJP L3
 LOD I,2,24
 INC I,1
 CHK I,1,12
 STR I,2,24
 UJP L2
L3 LAB
 LDC I,1
 CHK I,1,12
 LOC    50
 STR I,2,24
L4 LAB
 LOD I,2,24
 LDC I,12
 LES I
 LOD A,2,8
 LOD I,2,24
 CHK J,1,12
 DEC I,1
 IXA 1
 IND C,0
 LOC    60
 LDC C,'0'
 EQU C
 AND
 FJP L5
 LOD A,2,8
 LOD I,2,24
 CHK J,1,12
 DEC I,1
 IXA 1
 LDC C,' '
 LOC    70
 CHK I,0,255
 STO C
 LOD I,2,24
 LDC I,1
 ADI
 CHK I,1,12
 STR I,2,24
 UJP L4
L5 LAB
 RET P
L1 DEF        32
 SST P  CVOS$033       2       8       0       4       8
 LOC     0
CVOS$033 ENT P,2,L1  CVOS_12        1 1 1
 LOD A,2,8
 LCA '           0'
 MOV 12
 LDC I,12
 CHK I,1,12
 STR I,2,16
L2 LAB
 LOD I,2,12
 LDC I,0
 GRT I
 LOC    10
 FJP L3
 LOD A,2,8
 LOD I,2,16
 CHK J,1,12
 DEC I,1
 IXA 1
 LDC C,'0'
 ORD
 LOD I,2,12
 LDC I,8
 LOC    20
 MOD
 ADI
 CHR
 CHK I,0,255
 STO C
 LOD I,2,12
 LDC I,8
 DVI
 CHK I,0,34359738367
 STR I,2,12
 LOC    30
 LOD I,2,16
 LDC I,1
 SBI
 CHK I,1,12
 STR I,2,16
 UJP L2
L3 LAB
 RET P
L1 DEF        20
 SST P  CVOS$034       2       8       0       4       8
 LOC     0
CVOS$034 ENT P,2,L1  CVOS_10        1 1 1
 LOD A,2,8
 LCA '         0'
 MOV 10
 LDC I,10
 CHK I,1,10
 STR I,2,16
L2 LAB
 LOD I,2,12
 LDC I,0
 GRT I
 LOC    10
 FJP L3
 LOD I,2,16
 LDC I,0
 GRT I
 NOT
 FJP L4
 MST 2,4,4
 LCA 'CVOS_10  001'
 PAR A
 CUP P,2,ASSER003
L4 LAB
 LOC    20
 LOD A,2,8
 LOD I,2,16
 CHK J,1,10
 DEC I,1
 IXA 1
 LDC C,'0'
 ORD
 LOD I,2,12
 LDC I,8
 MOD
 LOC    30
 ADI
 CHR
 CHK I,0,255
 STO C
 LOD I,2,12
 LDC I,8
 DVI
 CHK I,0,34359738367
 STR I,2,12
 LOD I,2,16
 LOC    40
 LDC I,1
 SBI
 CHK I,1,10
 STR I,2,16
 UJP L2
L3 LAB
 RET P
L1 DEF        20
 SST I  CSP$H035       2       4       0       0       4
 LOC     0
CSP$H035 ENT I,2,L1  CSP_HASH       1 1 1
 LOD A,2,8
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,676
 MPI
 LOC    10
 LOD A,2,8
 LDC I,2
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,26
 MPI
 ADI
 LOC    20
 LOD A,2,8
 LDC I,3
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 ORD
 ADI
 LDC I,91
 MOD
 LOC    30
 STR I,2,0
 RET I
L1 DEF        12
 SST I  OPC$H036       2       4       0       0       4
 LOC     0
OPC$H036 ENT I,2,L1  OPC_HASH       1 1 1
 LOD A,2,8
 LDC I,1
 CHK J,1,3
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,676
 MPI
 LOC    10
 LOD A,2,8
 LDC I,2
 CHK J,1,3
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,26
 MPI
 ADI
 LOC    20
 LOD A,2,8
 LDC I,3
 CHK J,1,3
 DEC I,1
 IXA 1
 IND C,0
 ORD
 ADI
 LDC I,197
 MOD
 LOC    30
 STR I,2,0
 RET I
L1 DEF        12
 SST I  NAME$037       2       4       0       4       4
 LOC     0
NAME$037 ENT I,2,L1  NAME_TO_CSP    1 1 1
 MST 2,4,4
 LOD A,2,8
 PAR A
 CUP I,2,CSP$H035
 STR I,2,12
L2 LAB
 LDA 1,1288
 LOD I,2,12
 CHK J,0,90
 IXA 16
 LOC    10
 LOD A,2,8
 NEQ M,12
 LDA 1,1288
 LOD I,2,12
 CHK J,0,90
 IXA 16
 LCA '        '
 NEQ M,8
 AND
 FJP L3
 LOC    20
 LOD I,2,12
 LDC I,1
 ADI
 LDC I,91
 MOD
 STR I,2,12
 UJP L2
L3 LAB
 LDA 1,1288
 LOD I,2,12
 CHK J,0,90
 LOC    30
 IXA 16
 LOD A,2,8
 EQU M,12
 FJP L4
 LDA 1,1288
 LOD I,2,12
 CHK J,0,90
 IXA 16
 IND I,12
 CHK I,0,31
 LOC    40
 STR I,2,0
 UJP L5
L4 LAB
 MST 2,4,4
 LDC I,26
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L5 LAB
 RET I
L1 DEF        16
 SST I  MNEM$038       2       4       0       4       4
 LOC     0
MNEM$038 ENT I,2,L1  MNEM_TO_OPC    1 1 1
 MST 2,4,4
 LOD A,2,8
 PAR A
 CUP I,2,OPC$H036
 STR I,2,12
L2 LAB
 LDA 1,2744
 LOD I,2,12
 CHK J,0,196
 IXA 8
 LOC    10
 LOD A,2,8
 NEQ M,3
 LDA 1,2744
 LOD I,2,12
 CHK J,0,196
 IXA 8
 LCA '   '
 NEQ M,3
 AND
 FJP L3
 LOC    20
 LOD I,2,12
 LDC I,1
 ADI
 LDC I,197
 MOD
 STR I,2,12
 UJP L2
L3 LAB
 LDA 1,2744
 LOD I,2,12
 CHK J,0,196
 LOC    30
 IXA 8
 LOD A,2,8
 EQU M,3
 FJP L4
 LDA 1,2744
 LOD I,2,12
 CHK J,0,196
 IXA 8
 IND I,4
 CHK I,0,72
 LOC    40
 STR I,2,0
 UJP L5
L4 LAB
 MST 2,4,4
 LDC I,27
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L5 LAB
 RET I
L1 DEF        16
 SST A  PTR$O039       2       8       0       8       8
 LOC     0
PTR$O039 ENT A,2,L1  PTR_OPNDXWD    1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 CHK I,0,4
 STR I,2,16
 LOD I,2,16
 LDC I,0
 NEQ I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'PTR_OPNDX001'
 PAR A
 LOC    20
 CUP P,2,ASSER003
L2 LAB
 LOD I,2,12
 LDC I,24
 EQU I
 LOD B,1,35756
 AND
 LOD I,2,16
 LDC I,2
 EQU I
 AND
 LOC    30
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 LOC    40
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 FJP L3
 LDC N
 CHK A,-1,0
 STR A,2,0
 UJP L4
L3 LAB
 LOC    50
 LOD A,2,8
 CHK A,-1,0
 STR A,2,20
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 LOC    60
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L5
 LOD A,2,20
 CHK A,0,0
 LOC    70
 IND A,0
 CHK A,-1,0
 STR A,2,20
L5 LAB
 LOD I,2,12
 LDC I,12
 EQU I
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 LOC    80
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 LOC    90
 AND
 FJP L6
 LOD A,2,20
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,20
L6 LAB
 LOD A,2,20
 LOD A,2,8
 EQU A
 LOC   100
 FJP L7
 LDC N
 CHK A,-1,0
 STR A,2,0
 UJP L8
L7 LAB
 LOD A,2,20
 CHK A,-1,0
 STR A,2,0
L8 LAB
L4 LAB
 RET A
L1 DEF        24
 SST B  S1OPN040       2      16       0       8      16
 LOC     0
S1OPN040 ENT B,2,L1  S1OPNDS_EQUA   1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 LDC I,2
 EQU I
 LOD I,2,12
 LDC I,24
 EQU I
 AND
 NOT
 LDA 1,23728
 MST 2,4,4
 LOD A,2,16
 LOC    20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 LOD I,2,20
 LDC I,24
 LOC    30
 EQU I
 AND
 NOT
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'S1OPNDS_E001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOC    40
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LOD I,2,12
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 LOC    50
 PAR I
 CUP I,6,GETFI020
 MST 2,12,12
 LOD A,2,16
 CHK A,0,0
 INC A,4
 PAR A
 LOD I,2,20
 CHK I,0,35
 PAR I
 LOC    60
 LDC I,12
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 EQU I
 FJP L3
 MST 2,8,8
 LOD A,2,8
 CHK A,-1,0
 PAR A
 LOC    70
 LOD I,2,12
 CHK I,0,35
 PAR I
 CUP A,4,PTR$O039
 CHK A,-1,0
 STR A,2,28
 MST 2,8,8
 LOD A,2,16
 CHK A,-1,0
 PAR A
 LOC    80
 LOD I,2,20
 CHK I,0,35
 PAR I
 CUP A,4,PTR$O039
 CHK A,-1,0
 STR A,2,24
 LOD A,2,28
 LDC N
 EQU A
 LOD A,2,24
 LOC    90
 LDC N
 EQU A
 IOR
 FJP L4
 LOD A,2,28
 LOD A,2,24
 EQU A
 STR B,2,0
 UJP L5
L4 LAB
 LOD A,2,28
 LOC   100
 CHK A,0,0
 INC A,4
 LOD A,2,24
 CHK A,0,0
 INC A,4
 EQU M,8
 STR B,2,0
L5 LAB
 UJP L6
L3 LAB
 LDC B,0
 STR B,2,0
L6 LAB
 LOC   110
 RET B
L1 DEF        32
 SST I  S1OPN041       2       8       0       4       8
 LOC     0
S1OPN041 ENT I,2,L1  S1OPND_TEMPL   1 1 1
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LOD I,2,12
 LDC I,6
 ADI
 CHK I,0,35
 LOC    10
 PAR I
 LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 CHK I,-32,31
 STR I,2,16
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 LOC    20
 INC A,4
 PAR A
 LOD I,2,12
 LDC I,0
 ADI
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOC    30
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LOD I,2,12
 LDC I,1
 LOC    40
 ADI
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 AND
 LOC    50
 LDC I,4
 LOD I,2,16
 LEQ I
 LOD I,2,16
 LDC I,6
 INC I,1
 LEQ I
 AND
 LOD I,1,35488
 LOD I,2,16
 LOC    60
 LEQ I
 LOD I,2,16
 LOD I,1,35484
 LEQ I
 AND
 IOR
 AND
 FJP L2
 LOD I,2,16
 STR I,2,0
 LOC    70
 UJP L3
L2 LAB
 LDC I,1
 NGI
 STR I,2,0
L3 LAB
 RET I
L1 DEF        20
 SST I  GETS1008       2       4       0       0       4
 LOC     0
GETS1008 ENT I,2,L1  GETS1OPCODE    1 1 1
 LDA 1,6200
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 CHK I,0,35
 PAR I
 LOC    10
 LDC I,12
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK J,0,4095
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,0
 RET I
L1 DEF        12
 SST A  AFTER042       2       4       0       4       4
 LOC     0
AFTER042 ENT A,2,L1  AFTER_LAST_X   1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 LDC I,0
 NEQ I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'AFTER_LAS001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD A,2,8
 CHK A,0,0
 LOC    20
 IND A,0
 CHK A,-1,0
 STR A,2,12
 LOD B,1,35756
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LOC    30
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 AND
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 LOC    40
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 LOC    50
 AND
 FJP L3
 UJP L4
L3 LAB
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 LOC    60
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L5
 LOD A,2,12
 CHK A,0,0
 LOC    70
 IND A,0
 CHK A,-1,0
 STR A,2,12
L5 LAB
L4 LAB
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 LOC    80
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L6
 LOD A,2,12
 CHK A,0,0
 LOC    90
 IND A,0
 CHK A,-1,0
 STR A,2,12
L6 LAB
 LOD A,2,12
 CHK A,-1,0
 STR A,2,0
 RET A
L1 DEF        16
 SST A  JUMPS009       2       4       0       4       4
 LOC     0
JUMPS009 ENT A,2,L1  JUMPSKIPDEST   1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 ORD
 CHK S,0,63
 LDC S,(0,0,0,20)
 INN
 NOT
 FJP L2
 MST 2,4,4
 LCA 'JUMPSKIPD001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOC    20
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,12
 LOD A,2,12
 CHK A,0,0
 IND A,4
 LOC    30
 CHK A,-1,0
 STR A,2,0
 RET A
L1 DEF        16
 SST A  NEXT$043       2       4       0       8       4
 LOC     0
NEXT$043 ENT A,2,L1  NEXT_INSTRUC   1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 CHK I,0,4
 STR I,2,16
 LOD I,2,16
 LDC I,0
 EQU I
 FJP L2
 LOD A,2,8
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 LOC    20
 STR A,2,0
 UJP L3
L2 LAB
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,12
 LOD I,2,16
 LOC    30
 ORD
 CHK S,0,63
 LDC S,(0,0,0,20)
 INN
 FJP L4
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,0
 LOC    40
 UJP L5
L4 LAB
 LOD A,2,12
 CHK A,-1,0
 STR A,2,0
L5 LAB
L3 LAB
 RET A
L1 DEF        20
 SST A  AFTER044       2       4       0       4       4
 LOC     0
AFTER044 ENT A,2,L1  AFTER_FAKEOP   1 1 1
 LDC B,1
 STR B,2,12
L2 LAB
 LOD B,2,12
 FJP L3
 LOD A,2,8
 LDC N
 EQU A
 FJP L4
 LDC B,0
 LOC    10
 STR B,2,12
 UJP L5
L4 LAB
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 LOC    20
 IND I,0
 LDC I,0
 EQU I
 FJP L6
 LOD A,2,8
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,8
 UJP L7
L6 LAB
 LOC    30
 LDC B,0
 STR B,2,12
L7 LAB
L5 LAB
 UJP L2
L3 LAB
 LOD A,2,8
 CHK A,-1,0
 STR A,2,0
 RET A
L1 DEF        16
 SST P  INVER045       2       4       0       8       4
 LOC     0
INVER045 ENT P,2,L1  INVERT_SKIP    1 1 1
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,8
 CHK I,0,35
 PAR I
 LDC I,4
 LOC    10
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,-8,7
 STR I,2,12
 LDA 1,30596
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 LOC    20
 CUP I,2,GETS1008
 CHK J,169,200
 DEC I,169
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,16
 MST 2,16,16
 LOD A,2,8
 CHK A,0,0
 LOC    30
 INC A,4
 PAR A
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,16
 LOC    40
 CHK J,0,285
 IXA 4
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LOC    50
 LDC I,8
 CHK I,0,35
 PAR I
 LDC I,4
 CHK I,1,36
 PAR I
 LOD I,2,12
 PAR I
 CUP P,8,PUTFI022
 RET P
L1 DEF        20
 SST P  FIXSO046       2       8       0       4       8
 LOC     0
FIXSO046 ENT P,2,L1  FIXSOP         1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 LDC I,4
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FIXSOP   001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,4,4
 LOD A,2,8
 LOC    20
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,16
 LOD A,2,16
 CHK A,0,0
 INC A,4
 LOD A,2,12
 CHK A,-1,0
 LOC    30
 STO A
 RET P
L1 DEF        20
 SST P  FIXJO047       2       8       0       4       8
 LOC     0
FIXJO047 ENT P,2,L1  FIXJOP         1 1 1
 LDA 1,23728
 MST 2,4,4
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    10
 LDC I,2
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FIXJOP   001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,4,4
 LOD A,2,8
 LOC    20
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,16
 LOD A,2,16
 CHK A,0,0
 INC A,4
 LOD A,2,12
 CHK A,-1,0
 LOC    30
 STO A
 RET P
L1 DEF        20
 SST P  FIXOP048       2       8       0      20       8
 LOC     0
FIXOP048 ENT P,2,L1  FIXOPND2       1 1 1
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    10
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FIXOPND2 001'
 PAR A
 LOC    20
 CUP P,2,ASSER003
L2 LAB
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,25
 CHK I,0,35
 PAR I
 LDC I,5
 LOC    30
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LOC    40
 LDC I,30
 CHK I,0,35
 PAR I
 LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 GRT I
 AND
 LOC    50
 FJP L3
 MST 2,8,8
 LDA 2,16
 PAR A
 LOD I,2,12
 PAR I
 CUP P,4,INTEG025
 LOD A,2,8
 CHK A,0,0
 IND A,0
 LOC    60
 CHK A,0,0
 STR A,2,36
 LDC I,0
 CHK I,0,1
 STR I,2,24
 LOD A,2,36
 IND I,4
 LOD I,2,16
 ADI
 STR I,2,28
 LOC    70
 LOD I,2,28
 LDA 1,4864
 LDC I,18
 CHK J,0,34
 IXA 4
 IND I,0
 LES I
 FJP L4
 LOD A,2,36
 INC A,4
 LOC    80
 LOD I,2,28
 STO I
 UJP L5
L4 LAB
 LDC I,1
 CHK I,0,1
 STR I,2,24
 LOD A,2,36
 INC A,4
 LOD I,2,28
 LDA 1,4864
 LOC    90
 LDC I,18
 CHK J,0,34
 IXA 4
 IND I,0
 SBI
 STO I
L5 LAB
 LOD A,2,36
 IND I,8
 LOD I,2,20
 ADI
 LOC   100
 LOD I,2,24
 ADI
 STR I,2,28
 LOD A,2,36
 INC A,8
 LOD I,2,28
 LDA 1,4864
 LDC I,18
 CHK J,0,34
 IXA 4
 LOC   110
 IND I,0
 MOD
 STO I
 UJP L6
L3 LAB
 LOD A,2,8
 CHK A,0,0
 IND A,0
 CHK A,0,0
 STR A,2,36
 MST 2,12,12
 LOC   120
 LOD A,2,36
 INC A,4
 PAR A
 LDC I,1
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   130
 LDC I,0
 EQU I
 FJP L7
 LOD I,2,12
 MST 2,12,12
 LOD A,2,36
 INC A,4
 PAR A
 LDC I,6
 CHK I,0,35
 LOC   140
 PAR I
 LDC I,30
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 ADI
 STR I,2,28
 LOD I,2,28
 LDC I,-536870912
 LES I
 LOC   150
 LOD I,2,28
 LDC I,536870911
 GRT I
 IOR
 FJP L8
 MST 2,4,4
 LDC I,1
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L8 LAB
 LOC   160
 MST 2,16,16
 LOD A,2,36
 INC A,4
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,30
 CHK I,1,36
 PAR I
 LOC   170
 LOD I,2,28
 PAR I
 CUP P,8,PUTFI022
 UJP L9
L7 LAB
 LOD I,2,12
 MST 2,12,12
 LOD A,2,36
 INC A,4
 PAR A
 LDC I,11
 LOC   180
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 ADI
 STR I,2,28
 LOD I,2,28
 LDC I,-16777216
 LOC   190
 LES I
 LOD I,2,28
 LDC I,16777215
 GRT I
 IOR
 FJP L10
 MST 2,4,4
 LDC I,12
 CHK I,0,68
 PAR I
 LOC   200
 CUP P,2,ERROR005
L10 LAB
 MST 2,16,16
 LOD A,2,36
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 LOC   210
 PAR I
 LOD I,2,28
 PAR I
 CUP P,8,PUTFI022
L9 LAB
L6 LAB
 LOD B,1,284
 FJP L11
 LDA 1,13
 CSP  SIO
 LCA '      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:'
 LDC I,49
 LOC   220
 LDC I,49
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDC I,0
 STR I,2,32
 MST 2,8,8
 LDA 2,32
 PAR A
 LOD A,2,8
 LOC   230
 CHK A,-1,0
 PAR A
 CUP P,4,DISAS007
L11 LAB
 RET P
L1 DEF        40
 SST P  ADD$C050       2       8       0       4       8
 LOC     0
ADD$C050 ENT P,2,L1  ADD_CODEPTR_   1 1 1
 MST 2,4,4
 LDA 2,16
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,16
 CHK A,0,0
 INC A,4
 LOD A,2,12
 CHK A,-1,0
 LOC    10
 STO A
 LOD A,2,16
 CHK A,0,0
 LOD A,2,8
 IND A,8
 CHK A,-1,0
 STO A
 LOD A,2,8
 IND A,8
 LDC N
 LOC    20
 EQU A
 FJP L2
 LOD A,2,8
 INC A,4
 LOD A,2,16
 CHK A,-1,0
 STO A
L2 LAB
 LOD A,2,8
 INC A,8
 LOD A,2,16
 LOC    30
 CHK A,-1,0
 STO A
 LOD A,2,8
 LDC I,1
 LOD A,2,8
 IND I,0
 ADI
 CHK I,0,999999
 STO I
 RET P
L1 DEF        20
 SST P  ADD$J051       2      12       0       0      12
 LOC     0
ADD$J051 ENT P,2,L1  ADD_JUMPLIST   1 1 1
 MST 2,8,8
 LOD A,2,16
 CHK A,-1,0
 PAR A
 LOD A,2,8
 IND A,8
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOC    10
 LOD A,2,8
 IND A,8
 LDC N
 EQU A
 FJP L2
 LOD A,2,8
 INC A,4
 LOD A,2,16
 CHK A,-1,0
 STO A
L2 LAB
 LOC    20
 LOD A,2,8
 INC A,8
 LOD A,2,16
 CHK A,-1,0
 STO A
 MST 2,8,8
 LOD A,2,8
 IND A,4
 CHK A,-1,0
 PAR A
 LOC    30
 LOD A,2,12
 IND A,8
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,12
 IND A,8
 LDC N
 NEQ A
 FJP L3
 LOC    40
 LOD A,2,8
 INC A,4
 LOD A,2,12
 IND A,4
 CHK A,-1,0
 STO A
L3 LAB
 LOD A,2,8
 LDC I,1
 LOD A,2,8
 IND I,0
 LOC    50
 ADI
 LOD A,2,12
 IND I,0
 ADI
 CHK I,0,999999
 STO I
 RET P
L1 DEF        20
 SST P  ADD$J052       2       8       0       0       8
 LOC     0
ADD$J052 ENT P,2,L1  ADD_JUMP_TO_   1 1 1
 MST 2,8,8
 LOD A,2,12
 CHK A,-1,0
 PAR A
 LOD A,2,8
 IND A,8
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOC    10
 LOD A,2,8
 IND A,8
 LDC N
 EQU A
 FJP L2
 LOD A,2,8
 INC A,4
 LOD A,2,12
 CHK A,-1,0
 STO A
L2 LAB
 LOC    20
 LOD A,2,8
 INC A,8
 LOD A,2,12
 CHK A,-1,0
 STO A
 LOD A,2,8
 LDC I,1
 LOD A,2,8
 IND I,0
 ADI
 LOC    30
 CHK I,0,999999
 STO I
 RET P
L1 DEF        16
 SST P  JUMP$053       2       8       0       8       8
 LOC     0
JUMP$053 ENT P,2,L1  JUMP_TO_TABL   1 1 1
 MST 2,12,12
 LDA 2,16
 PAR A
 LOD I,2,12
 CHK I,1,99999
 PAR I
 LDC I,1
 CHK I,0,1
 PAR I
 LOC    10
 CUP P,6,UPD$L049
 LOD A,2,16
 CHK A,0,0
 STR A,2,24
 LOD A,2,24
 IND B,8
 NOT
 FJP L2
 MST 2,8,8
 LOD A,2,24
 LOC    20
 INC A,16
 PAR A
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$J052
 UJP L3
L2 LAB
 MST 2,8,8
 LOD A,2,8
 CHK A,-1,0
 LOC    30
 PAR A
 LOD A,2,24
 IND A,12
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,24
 IND B,28
 NOT
 FJP L4
 LOC    40
 LOD A,2,24
 IND A,12
 CHK A,-1,0
 STR A,2,20
L5 LAB
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,63
 LOC    50
 EQU I
 MST 2,12,12
 LOD A,2,20
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    60
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 AND
 FJP L6
 MST 2,16,16
 LOD A,2,20
 CHK A,0,0
 LOC    70
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 LOC    80
 CUP P,8,PUTFI022
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,20
 UJP L5
L6 LAB
L4 LAB
L3 LAB
 LOD A,2,24
 LOC    90
 INC A,28
 LDC B,1
 STO B
 RET P
L1 DEF        28
 SST P  JUMP$054       2       8       0       4       8
 LOC     0
JUMP$054 ENT P,2,L1  JUMP_TO_LABE   1 1 1
 MST 2,12,12
 LDA 2,16
 PAR A
 LOD I,2,12
 CHK I,1,99999
 PAR I
 LDC I,1
 CHK I,0,1
 PAR I
 LOC    10
 CUP P,6,UPD$L049
 LOD A,2,16
 CHK A,0,0
 STR A,2,20
 LOD A,2,20
 IND B,8
 FJP L2
 MST 2,8,8
 LOD A,2,8
 CHK A,-1,0
 LOC    20
 PAR A
 LOD A,2,20
 IND A,12
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 UJP L3
L2 LAB
 MST 2,8,8
 LOD A,2,20
 INC A,16
 LOC    30
 PAR A
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$J052
L3 LAB
 RET P
L1 DEF        24
 SST P  OPND2055       2       8       0       4       8
 LOC     0
OPND2055 ENT P,2,L1  OPND2_RECORD   1 1 1
 MST 2,12,12
 LDA 2,16
 PAR A
 LOD I,2,12
 CHK I,1,99999
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LOC    10
 CUP P,6,UPD$L049
 LOD A,2,16
 CHK A,0,0
 STR A,2,20
 LOD A,2,20
 IND B,8
 FJP L2
 MST 2,8,8
 LOD A,2,8
 CHK A,-1,0
 LOC    20
 PAR A
 LOD A,2,20
 IND I,12
 PAR I
 CUP P,4,FIXOP048
 UJP L3
L2 LAB
 MST 2,8,8
 LOD A,2,20
 INC A,16
 PAR A
 LOC    30
 LOD A,2,8
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
L3 LAB
 RET P
L1 DEF        24
 SST B  ISREG057       2       4       0       0       4
 LOC     0
ISREG057 ENT B,2,L1  ISREG          1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 STR B,2,0
 RET B
L1 DEF        12
 SST B  IS$T$058       2       4       0       0       4
 LOC     0
IS$T$058 ENT B,2,L1  IS_T_REG       1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 LDC I,4
 LOD A,2,8
 IND I,8
 LEQ I
 LOD A,2,8
 IND I,8
 LDC I,6
 INC I,1
 LEQ I
 AND
 LOC    20
 LOD I,1,35488
 LOD A,2,8
 IND I,8
 LEQ I
 LOD A,2,8
 IND I,8
 LOD I,1,35484
 LEQ I
 AND
 IOR
 LOC    30
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  IS$T$059       2       4       0       0       4
 LOC     0
IS$T$059 ENT B,2,L1  IS_T_REG_NOT   1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 LOD I,1,35488
 LOD A,2,8
 IND I,8
 LEQ I
 AND
 LOD A,2,8
 IND I,8
 LOD I,1,35484
 LEQ I
 AND
 LOC    20
 STR B,2,0
 RET B
L1 DEF        12
 SST B  ISSHO060       2       4       0       0       4
 LOC     0
ISSHO060 ENT B,2,L1  ISSHORTCONST   1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 AND
 LOC    10
 STR B,2,0
 RET B
L1 DEF        12
 SST B  ISCON061       2       4       0       0       4
 LOC     0
ISCON061 ENT B,2,L1  ISCONST        1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 AND
 LOC    10
 LOD A,2,8
 IND I,0
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 AND
 LOD A,2,8
 LOC    20
 IND I,8
 LDC I,0
 NEQ I
 AND
 IOR
 STR B,2,0
 RET B
L1 DEF        12
 SST B  EQUAL062       2       8       0       4       8
 LOC     0
EQUAL062 ENT B,2,L1  EQUAL_OPERAN   1 1 1
 LOD A,2,8
 IND I,0
 LOD A,2,12
 IND I,0
 EQU I
 LOD A,2,8
 IND I,4
 LOD A,2,12
 IND I,4
 LOC    10
 EQU I
 AND
 LOD A,2,8
 IND I,8
 LOD A,2,12
 IND I,8
 EQU I
 AND
 LOD A,2,8
 IND I,48
 LOC    20
 LOD A,2,12
 IND I,48
 EQU I
 AND
 LOD A,2,8
 IND A,52
 LOD A,2,12
 IND A,52
 EQU A
 AND
 LOC    30
 LOD A,2,8
 IND I,12
 LOD A,2,12
 IND I,12
 EQU I
 AND
 STR B,2,16
 LOD B,2,16
 FJP L2
 LOD A,2,8
 LOC    40
 IND I,12
 ORD
 CHK I,0,1
 XJP L3
L7 LAB
 LOD A,2,8
 IND I,28
 LOD A,2,12
 IND I,28
 EQU I
 LOD A,2,8
 LOC    50
 IND I,24
 LOD A,2,12
 IND I,24
 EQU I
 AND
 LOD A,2,8
 IND I,20
 LOD A,2,12
 IND I,20
 EQU I
 LOC    60
 AND
 LOD A,2,8
 IND I,16
 LOD A,2,12
 IND I,16
 EQU I
 AND
 LOD A,2,8
 IND I,32
 LOD A,2,12
 LOC    70
 IND I,32
 EQU I
 AND
 LOD A,2,8
 IND I,36
 LOD A,2,12
 IND I,36
 EQU I
 AND
 LOD A,2,8
 LOC    80
 IND I,40
 LOD A,2,12
 IND I,40
 EQU I
 AND
 LOD A,2,8
 IND I,44
 LOD A,2,12
 IND I,44
 EQU I
 LOC    90
 AND
 STR B,2,16
 UJP L6
L8 LAB
 LOD A,2,8
 INC A,16
 LOD A,2,12
 INC A,16
 EQU M,8
 STR B,2,16
 UJP L6
L3 DEF         0
L4 DEF         1
L5 LAB
 LOC   100
 UJP L7
 UJP L8
L6 LAB
L2 LAB
 LOD B,2,16
 STR B,2,0
 RET B
L1 DEF        20
 SST P  REG$O063       2       8       0       0       8
 LOC     0
REG$O063 ENT P,2,L1  REG_OPERAND    1 1 1
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOD A,2,8
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LOC    10
 LDC I,0
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LOD I,2,12
 ORD
 CHK I,-32,31
 STO I
 RET P
L1 DEF        16
 SST P  IMM$O064       2       8       0       0       8
 LOC     0
IMM$O064 ENT P,2,L1  IMM_OPERAND    1 1 1
 LDC I,-32
 LOD I,2,12
 LEQ I
 LOD I,2,12
 LDC I,31
 LEQ I
 AND
 FJP L2
 LOD A,2,8
 LOC    10
 LDA 1,4400
 MOV 56
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 NOT
 FJP L3
 MST 2,4,4
 LCA 'IMM_OPERA001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L3 LAB
 LOD A,2,8
 INC A,8
 LOD I,2,12
 CHK I,-32,31
 STO I
 UJP L4
L2 LAB
 LOD A,2,8
 LDA 1,4344
 LOC    30
 MOV 56
 MST 2,8,8
 LOD A,2,8
 INC A,16
 PAR A
 LOD I,2,12
 PAR I
 CUP P,4,INTEG025
L4 LAB
 RET P
L1 DEF        16
 SST P  REAL$065       2       8       0       0       8
 LOC     0
REAL$065 ENT P,2,L1  REAL_IMM_OPE   1 1 1
 LOD R,2,12
 LDC R,0.0
 EQU R
 FJP L2
 LOD A,2,8
 LDA 1,4400
 MOV 56
 UJP L3
L2 LAB
 LOD A,2,8
 LOC    10
 LDA 1,4344
 MOV 56
 MST 2,8,8
 LOD A,2,8
 INC A,16
 PAR A
 LOD R,2,12
 PAR R
 CUP P,4,REAL$023
L3 LAB
 RET P
L1 DEF        16
 SST B  IS$RT066       2       4       0       0       4
 LOC     0
IS$RT066 ENT B,2,L1  IS_RT          1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 LOD A,2,8
 IND I,8
 LDC I,4
 ORD
 EQU I
 LOD A,2,8
 IND I,8
 LDC I,6
 ORD
 EQU I
 LOC    20
 IOR
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  IS$RT067       2       4       0       0       4
 LOC     0
IS$RT067 ENT B,2,L1  IS_RTA         1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 LOD A,2,8
 IND I,8
 LDC I,4
 ORD
 EQU I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  IS$RT068       2       4       0       0       4
 LOC     0
IS$RT068 ENT B,2,L1  IS_RTB         1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 AND
 LOC    10
 LOD A,2,8
 IND I,8
 LDC I,6
 ORD
 EQU I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  USES$069       2       4       0       0       4
 LOC     0
USES$069 ENT B,2,L1  USES_RTA       1 1 1
 LOD A,2,8
 IND I,4
 LDC I,4
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 LOD A,2,8
 LOC    10
 IND I,8
 LDC I,4
 ORD
 EQU I
 AND
 IOR
 FJP L2
 LDC B,1
 STR B,2,0
 UJP L3
L2 LAB
 LOC    20
 LOD A,2,8
 IND I,0
 LDC I,1
 NEQ I
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,8
 LOC    30
 LDC I,0
 NEQ I
 AND
 IOR
 FJP L4
 LDC B,0
 STR B,2,0
 UJP L5
L4 LAB
 LOD A,2,8
 IND I,24
 LOC    40
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,40
 LDC I,4
 EQU I
 AND
 STR B,2,0
L5 LAB
L3 LAB
 RET B
L1 DEF        12
 SST B  USES$070       2       4       0       0       4
 LOC     0
USES$070 ENT B,2,L1  USES_RTB       1 1 1
 LOD A,2,8
 IND I,4
 LDC I,6
 EQU I
 LOD A,2,8
 IND I,4
 LDC I,0
 EQU I
 LOD A,2,8
 LOC    10
 IND I,8
 LDC I,6
 ORD
 EQU I
 AND
 IOR
 FJP L2
 LDC B,1
 STR B,2,0
 UJP L3
L2 LAB
 LOC    20
 LOD A,2,8
 IND I,0
 LDC I,1
 NEQ I
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,8
 LOC    30
 LDC I,0
 NEQ I
 AND
 IOR
 FJP L4
 LDC B,0
 STR B,2,0
 UJP L5
L4 LAB
 LOD A,2,8
 IND I,24
 LOC    40
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,40
 LDC I,6
 EQU I
 AND
 STR B,2,0
L5 LAB
L3 LAB
 RET B
L1 DEF        12
 SST P  EXTEN071       2       8       0       0       8
 LOC     0
EXTEN071 ENT P,2,L1  EXTENDED_IMM   1 1 1
 LOD A,2,8
 LDA 1,4344
 MOV 56
 MST 2,8,8
 LOD A,2,8
 INC A,16
 PAR A
 LOD I,2,12
 PAR I
 LOC    10
 CUP P,4,INTEG025
 RET P
L1 DEF        16
 SST P  REGDI072       2      12       0       0      12
 LOC     0
REGDI072 ENT P,2,L1  REGDISP_OPER   1 1 1
 MST 2,4,4
 LOD I,2,16
 CHK I,-16777216,16777215
 PAR I
 CUP B,2,FITS$056
 FJP L2
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOC    10
 LOD A,2,8
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LOD I,2,12
 ORD
 CHK I,0,31
 STO I
 LOC    20
 LOD A,2,8
 INC A,8
 LOD I,2,16
 LDC I,4
 DVI
 CHK I,-32,31
 STO I
 UJP L3
L2 LAB
 LOD A,2,8
 LDA 1,4456
 LOC    30
 MOV 56
 LOD A,2,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LDC I,1
 CHK I,0,31
 STO I
 LOC    40
 LOD A,2,8
 INC A,8
 LDC I,0
 CHK I,-32,31
 STO I
 LOD A,2,8
 INC A,12
 LDC I,0
 CHK I,0,1
 STO I
 LOC    50
 LOD A,2,8
 INC A,28
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,24
 LDC I,1
 CHK I,0,1
 STO I
 LOC    60
 LOD A,2,8
 INC A,20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,16
 LDC I,0
 CHK I,0,1
 STO I
 LOC    70
 LOD A,2,8
 INC A,32
 LDC I,0
 CHK I,0,3
 STO I
 LOD A,2,8
 INC A,40
 LOD I,2,12
 ORD
 CHK I,0,31
 LOC    80
 STO I
 LOD A,2,8
 INC A,44
 LOD I,2,16
 CHK I,-16777216,16777215
 STO I
L3 LAB
 RET P
L1 DEF        20
 SST P  EXTEN073       2      12       0       0      12
 LOC     0
EXTEN073 ENT P,2,L1  EXTENDED_REG   1 1 1
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOD A,2,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LOC    10
 LDC I,1
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LDC I,0
 CHK I,-32,31
 STO I
 LOD A,2,8
 INC A,12
 LOC    20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,28
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,24
 LOC    30
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,16
 LOC    40
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,32
 LDC I,0
 CHK I,0,3
 STO I
 LOD A,2,8
 INC A,40
 LOC    50
 LOD I,2,12
 ORD
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,44
 LOD I,2,16
 CHK I,-16777216,16777215
 STO I
 RET P
L1 DEF        20
 SST P  EXT$R074       2      12       0       0      12
 LOC     0
EXT$R074 ENT P,2,L1  EXT_REGADDR_   1 1 1
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOD A,2,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LOC    10
 LDC I,0
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LOD I,2,12
 ORD
 CHK I,-32,31
 STO I
 LOD A,2,8
 LOC    20
 INC A,12
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,28
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 LOC    30
 INC A,24
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 LOC    40
 INC A,16
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,32
 LDC I,0
 CHK I,0,3
 STO I
 LOD A,2,8
 LOC    50
 INC A,36
 LOD I,2,16
 CHK I,0,1073741823
 STO I
 RET P
L1 DEF        20
 SST P  ADDR$075       2       8       0       0       8
 LOC     0
ADDR$075 ENT P,2,L1  ADDR_OPERAND   1 1 1
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOD A,2,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,4
 LOC    10
 LDC I,1
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LDC I,0
 CHK I,-32,31
 STO I
 LOD A,2,8
 INC A,12
 LOC    20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,28
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,24
 LOC    30
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,20
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,16
 LOC    40
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,8
 INC A,32
 LDC I,0
 CHK I,0,3
 STO I
 LOD A,2,8
 INC A,36
 LOC    50
 LOD I,2,12
 CHK I,0,1073741823
 STO I
 RET P
L1 DEF        16
 SST P  ALLOC078       2       4       0       0       4
 LOC     0
ALLOC078 ENT P,2,L1  ALLOCGBL       1 1 1
 LDA 1,35468
 LOD I,2,8
 CHK J,32,39
 DEC I,32
 IXA 1
 IND B,0
 NOT
 FJP L2
 MST 2,4,4
 LOC    10
 LCA 'ALLOCGBL 001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 1,35468
 LOD I,2,8
 CHK J,32,39
 DEC I,32
 IXA 1
 LDC B,0
 STO B
 LOC    20
 RET P
L1 DEF        12
 SST P  FREEG079       2       4       0       0       4
 LOC     0
FREEG079 ENT P,2,L1  FREEGBL_S      1 1 1
 LDA 1,35468
 LOD I,2,8
 CHK J,32,39
 DEC I,32
 IXA 1
 IND B,0
 NOT
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'FREEGBL_S001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 1,35468
 LOD I,2,8
 CHK J,32,39
 DEC I,32
 IXA 1
 LDC B,1
 LOC    20
 STO B
 RET P
L1 DEF        12
 SST P  ALLOC080       2       4       0       0       4
 LOC     0
ALLOC080 ENT P,2,L1  ALLOCRG        1 1 1
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L2
 MST 2,4,4
 LCA 'ALLOCRG  001'
 LOC    10
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 LDC B,0
 STO B
 LDA 1,35340
 LOD I,2,8
 LOC    20
 CHK J,0,31
 IXA 4
 LDC I,0
 CHK I,0,2
 STO I
 RET P
L1 DEF        12
 SST P  ALLOC081       2       4       0       0       4
 LOC     0
ALLOC081 ENT P,2,L1  ALLOCRP        1 1 1
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 IND B,0
 LDA 1,35308
 LOD I,2,8
 INC I,1
 CHK J,0,31
 LOC    10
 IXA 1
 IND B,0
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'ALLOCRP  001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 1,35308
 LOC    20
 LOD I,2,8
 CHK J,0,31
 IXA 1
 LDC B,0
 STO B
 LDA 1,35308
 LOD I,2,8
 INC I,1
 CHK J,0,31
 IXA 1
 LOC    30
 LDC B,0
 STO B
 LDA 1,35340
 LOD I,2,8
 CHK J,0,31
 IXA 4
 LDC I,1
 CHK I,0,2
 STO I
 LDA 1,35340
 LOC    40
 LOD I,2,8
 INC I,1
 CHK J,0,31
 IXA 4
 LDC I,2
 CHK I,0,2
 STO I
 RET P
L1 DEF        12
 SST P  FREER082       2       4       0       0       4
 LOC     0
FREER082 ENT P,2,L1  FREERG_S       1 1 1
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LDA 1,35340
 LOD I,2,8
 CHK J,0,31
 LOC    10
 IXA 4
 IND I,0
 LDC I,2
 NEQ I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FREERG_S 001'
 PAR A
 LOC    20
 CUP P,2,ASSER003
L2 LAB
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 LDC B,1
 STO B
 MST 2,8,8
 LDC I,3
 CHK I,0,285
 LOC    30
 PAR I
 LOD I,2,8
 PAR I
 CUP P,4,EMITF076
 LDA 1,35340
 LOD I,2,8
 CHK J,0,31
 IXA 4
 IND I,0
 LDC I,1
 LOC    40
 EQU I
 FJP L3
 LDA 1,35308
 LOD I,2,8
 LDC I,1
 ADI
 CHK J,0,31
 IXA 1
 LDC B,1
 STO B
 LOC    50
 MST 2,8,8
 LDC I,3
 CHK I,0,285
 PAR I
 LOD I,2,8
 LDC I,1
 ADI
 PAR I
 CUP P,4,EMITF076
L3 LAB
 RET P
L1 DEF        12
 SST P  FINDR083       2       0       0       0       0
 LOC     0
FINDR083 ENT P,2,L1  FINDRP         1 1 1
 LOD I,1,35488
 CHK I,0,31
 STR I,1,35476
L2 LAB
 LOD I,1,35476
 LOD I,1,35480
 LDC I,2
 SBI
 LES I
 LDA 1,35308
 LOC    10
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 IND B,0
 LDA 1,35308
 LOD I,1,35476
 LDC I,1
 ADI
 CHK J,0,31
 IXA 1
 LOC    20
 IND B,0
 AND
 NOT
 AND
 FJP L3
 LOD I,1,35476
 LDC I,1
 ADI
 CHK I,0,31
 STR I,1,35476
 LOC    30
 UJP L2
L3 LAB
 LDA 1,35308
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 IND B,0
 LDA 1,35308
 LOD I,1,35476
 LDC I,1
 ADI
 LOC    40
 CHK J,0,31
 IXA 1
 IND B,0
 AND
 FJP L4
 LDA 1,35308
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 LDC B,0
 LOC    50
 STO B
 LDA 1,35308
 LOD I,1,35476
 LDC I,1
 ADI
 CHK J,0,31
 IXA 1
 LDC B,0
 STO B
 LDA 1,35340
 LOC    60
 LOD I,1,35476
 CHK J,0,31
 IXA 4
 LDC I,1
 CHK I,0,2
 STO I
 LDA 1,35340
 LOD I,1,35476
 LDC I,1
 ADI
 LOC    70
 CHK J,0,31
 IXA 4
 LDC I,2
 CHK I,0,2
 STO I
 LOD I,1,35476
 LDC I,1
 ADI
 LOD I,1,35484
 GRT I
 LOC    80
 FJP L5
 LOD I,1,35476
 LDC I,1
 ADI
 CHK I,0,31
 STR I,1,35484
 LDA 1,5004
 LDA 1,5012
 MOV 8
 LOD I,1,5024
 LOC    90
 STR I,1,5020
L5 LAB
 UJP L6
L4 LAB
 MST 2,4,4
 LDC I,13
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L6 LAB
 RET P
L1 DEF         8
 SST P  FINDR084       2       0       0       8       0
 LOC     0
FINDR084 ENT P,2,L1  FINDRG         1 1 1
 LOD I,1,35488
 CHK I,0,31
 STR I,1,35476
L2 LAB
 LOD I,1,35476
 LOD I,1,35480
 LDC I,1
 SBI
 LES I
 LDA 1,35308
 LOC    10
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 AND
 FJP L3
 LOD I,1,35476
 LDC I,1
 ADI
 LOC    20
 CHK I,0,31
 STR I,1,35476
 UJP L2
L3 LAB
 LDA 1,35308
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L4
 LOC    30
 MST 2,4,4
 LDC I,13
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L5
L4 LAB
 LOD I,1,35476
 CHK I,0,31
 STR I,2,12
L6 LAB
 LOD I,2,12
 LOC    40
 LOD I,1,35484
 LEQ I
 FJP L7
 LOD I,2,12
 CHK I,0,31
 STR I,2,8
L8 LAB
 LOD I,2,12
 LDC I,1
 ADI
 CHK I,0,31
 LOC    50
 STR I,2,12
 LOD I,2,12
 LOD I,1,35484
 GRT I
 LDA 1,35308
 LOD I,2,12
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOC    60
 IOR
 FJP L8
 LOD I,2,12
 LOD I,2,8
 SBI
 LDC I,1
 EQU I
 FJP L9
 LOD I,2,8
 CHK I,0,31
 LOC    70
 STR I,1,35476
 LOD I,1,35484
 LDC I,1
 ADI
 CHK I,0,31
 STR I,2,12
 UJP L10
L9 LAB
L11 LAB
 LOD I,2,12
 LOD I,1,35484
 LEQ I
 LOC    80
 LDA 1,35308
 LOD I,2,12
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 AND
 FJP L12
 LOD I,2,12
 LDC I,1
 LOC    90
 ADI
 CHK I,0,31
 STR I,2,12
 UJP L11
L12 LAB
L10 LAB
 UJP L6
L7 LAB
 LDA 1,35308
 LOD I,1,35476
 CHK J,0,31
 IXA 1
 LDC B,0
 LOC   100
 STO B
 LDA 1,35340
 LOD I,1,35476
 CHK J,0,31
 IXA 4
 LDC I,0
 CHK I,0,2
 STO I
 LOD I,1,35476
 LOD I,1,35484
 LOC   110
 GRT I
 FJP L13
 LOD I,1,35476
 CHK I,0,31
 STR I,1,35484
 LDA 1,5004
 LDA 1,5012
 MOV 8
 LOD I,1,5024
 STR I,1,5020
L13 LAB
L5 LAB
 LOC   120
 RET P
L1 DEF        16
 SST P  MOVE$085       2       0       0      60       0
 LOC     0
MOVE$085 ENT P,2,L1  MOVE_AND_FRE   1 1 1
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 NOT
 FJP L2
 MST 2,4,4
 LOC    10
 LCA 'MOVE_AND_001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD B,1,35496
 FJP L3
 MST 2,0,0
 CUP P,0,FINDR083
 LDC I,82
 CHK I,0,285
 STR I,2,8
 LOC    20
 UJP L4
L3 LAB
 MST 2,0,0
 CUP P,0,FINDR084
 LDC I,75
 CHK I,0,285
 STR I,2,8
L4 LAB
 MST 2,8,8
 LDA 2,12
 PAR A
 LOD I,1,35476
 LOC    30
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOD I,2,8
 CHK I,0,285
 PAR I
 LDA 2,12
 PAR A
 LDA 1,4748
 LOC    40
 PAR A
 CUP P,6,EMITX077
 LOD I,1,35492
 LOD I,1,39472
 LEQ I
 NOT
 FJP L5
 MST 2,4,4
 LCA 'MOVE_AND_002'
 PAR A
 LOC    50
 CUP P,2,ASSER003
L5 LAB
 LDA 1,35760
 LOD I,1,35492
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,68
 LOD A,2,68
 IND I,60
 LDC I,0
 LOC    60
 EQU I
 FJP L6
 LOD A,2,68
 IND I,64
 LDC I,6
 EQU I
 FJP L7
 LOD A,2,68
 INC A,64
 LOD I,1,35476
 LOC    70
 CHK I,0,31
 STO I
L7 LAB
L6 LAB
 LOD A,2,68
 IND I,84
 LDC I,0
 EQU I
 FJP L8
 LOD A,2,68
 IND I,88
 LDC I,6
 LOC    80
 EQU I
 FJP L9
 LOD A,2,68
 INC A,88
 LOD I,1,35476
 CHK I,0,31
 STO I
L9 LAB
L8 LAB
 LOD A,2,68
 IND I,104
 LDC I,0
 LOC    90
 EQU I
 FJP L10
 LOD A,2,68
 IND I,108
 LDC I,6
 EQU I
 FJP L11
 LOD A,2,68
 INC A,108
 LOD I,1,35476
 LOC   100
 CHK I,0,31
 STO I
L11 LAB
L10 LAB
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 RET P
L1 DEF        72
 SST I  CURRE086       2       0       0       0       0
 LOC     0
CURRE086 ENT I,2,L1  CURRENT_PARM   1 1 1
 LOD I,1,35488
 LDC I,8
 SBI
 CHK I,0,10
 STR I,2,0
 RET I
L1 DEF         8
 SST B  IS$PA087       2       4       0       0       4
 LOC     0
IS$PA087 ENT B,2,L1  IS_PARMREG     1 1 1
 LDC I,8
 LOD I,2,8
 LEQ I
 LOD I,2,8
 LOD I,1,35488
 LES I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST P  CHECK088       2       0       0       0       0
 LOC     0
CHECK088 ENT P,2,L1  CHECK_DSP_TM   1 1 1
 LOD I,1,35480
 LOD I,1,35484
 LEQ I
 FJP L2
 MST 2,4,4
 LDC I,42
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L2 LAB
 LOC    10
 RET P
L1 DEF         8
 SST P  RESER089       2       4       0       4       4
 LOC     0
RESER089 ENT P,2,L1  RESERVE_PARM   1 1 1
 LOD I,1,35488
 CHK I,0,31
 STR I,2,12
 LDC I,8
 LOD I,2,8
 ADI
 LDC I,1
 SBI
 CHK I,0,31
 LOC    10
 STR I,2,16
 LOD I,2,12
 LOD I,2,16
 LEQ I
 FJP L3
L2 LAB
 LDA 1,35308
 LOD I,2,12
 CHK J,0,31
 IXA 1
 IND B,0
 LOC    20
 NOT
 FJP L4
 MST 2,4,4
 LCA 'RESERVE_P001'
 PAR A
 CUP P,2,ASSER003
L4 LAB
 LOD I,2,12
 LOD I,2,16
 NEQ I
 FJP L3
 LOC    30
 LOD I,2,12
 INC I,1
 CHK I,0,31
 STR I,2,12
 UJP L2
L3 LAB
 LDC I,8
 LOD I,2,8
 ADI
 CHK I,0,31
 STR I,1,35488
 LOC    40
 MST 2,8,8
 LOD I,1,35484
 PAR I
 LOD I,1,35488
 LDC I,1
 SBI
 PAR I
 CUP I,4,MAX00030
 CHK I,0,31
 STR I,1,35484
 LOC    50
 MST 2,0,0
 CUP P,0,CHECK088
 RET P
L1 DEF        20
 SST P  FREED090       2       4       0       0       4
 LOC     0
FREED090 ENT P,2,L1  FREEDATUMREG   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,0
 EQU I
 FJP L2
 LOC    10
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LEQ I
 LDA 1,35760
 LOD I,2,8
 LOC    20
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,64
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L3
 MST 2,4,4
 LDA 1,35760
 LOC    40
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L3 LAB
L2 LAB
 LDA 1,35760
 LOD I,2,8
 LOC    50
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 GEQ I
 FJP L4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    60
 INC I,1
 IXA 116
 IND I,84
 LDC I,0
 EQU I
 FJP L5
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    70
 INC I,1
 IXA 116
 IND I,88
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LOC    80
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK S,0,63
 LOC    90
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L6
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   100
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L6 LAB
L5 LAB
L4 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LOC   110
 LDC I,2
 EQU I
 FJP L7
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,104
 LDC I,0
 LOC   120
 EQU I
 FJP L8
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LEQ I
 LOC   130
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOC   140
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L9
 LOC   150
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L9 LAB
L8 LAB
L7 LAB
 LOC   160
 RET P
L1 DEF        12
 SST P  FREER091       2       8       0       0       8
 LOC     0
FREER091 ENT P,2,L1  FREEREGSBUTO   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,0
 EQU I
 FJP L2
 LOC    10
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOD I,2,12
 NEQ I
 FJP L3
 LOD I,1,35488
 LOC    20
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,64
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    40
 IXA 116
 IND I,64
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L4
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 LOC    50
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L4 LAB
L3 LAB
L2 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    60
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 GEQ I
 FJP L5
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    70
 IXA 116
 IND I,84
 LDC I,0
 EQU I
 FJP L6
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    80
 IND I,88
 LOD I,2,12
 NEQ I
 FJP L7
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    90
 IND I,88
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LOD I,1,35484
 LEQ I
 LOC   100
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 LOC   110
 IOR
 FJP L8
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK I,0,31
 LOC   120
 PAR I
 CUP P,2,FREER082
L8 LAB
L7 LAB
L6 LAB
L5 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,2
 EQU I
 LOC   130
 FJP L9
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,104
 LDC I,0
 EQU I
 FJP L10
 LOC   140
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LOD I,2,12
 NEQ I
 FJP L11
 LOD I,1,35488
 LOC   150
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC   160
 INC I,1
 IXA 116
 IND I,108
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC   170
 IXA 116
 IND I,108
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L12
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 LOC   180
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L12 LAB
L11 LAB
L10 LAB
L9 LAB
 RET P
L1 DEF        16
 SST P  FREER092       2       8       0       8       8
 LOC     0
FREER092 ENT P,2,L1  FREERGSBUTSO   1 1 1
 LDC S,(0,0,0,0)
 STR S,2,16
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,1
 LOC    10
 EQU I
 FJP L2
 LOD S,2,16
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK S,0,63
 LOC    20
 SGS
 UNI
 STR S,2,16
L2 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,84
 LDC I,1
 LOC    30
 EQU I
 FJP L3
 LOD S,2,16
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK S,0,63
 LOC    40
 SGS
 UNI
 STR S,2,16
L3 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,104
 LDC I,1
 LOC    50
 EQU I
 FJP L4
 LOD S,2,16
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 CHK S,0,63
 LOC    60
 SGS
 UNI
 STR S,2,16
L4 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,0
 LOC    70
 EQU I
 FJP L5
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK S,0,63
 LOD S,2,16
 LOC    80
 INN
 NOT
 FJP L6
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOC    90
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOD I,1,35484
 LEQ I
 AND
 LOC   100
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 LOC   110
 FJP L7
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 CHK I,0,31
 PAR I
 LOC   120
 CUP P,2,FREER082
L7 LAB
L6 LAB
L5 LAB
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 GEQ I
 FJP L8
 LOC   130
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,84
 LDC I,0
 EQU I
 FJP L9
 LDA 1,35760
 LOC   140
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK S,0,63
 LOD S,2,16
 INN
 NOT
 FJP L10
 LOC   150
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LEQ I
 LDA 1,35760
 LOD I,2,8
 LOC   160
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC   170
 INC I,1
 IXA 116
 IND I,88
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L11
 MST 2,4,4
 LDA 1,35760
 LOC   180
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L11 LAB
L10 LAB
L9 LAB
L8 LAB
 LDA 1,35760
 LOD I,2,8
 LOC   190
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,2
 EQU I
 FJP L12
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC   200
 INC I,1
 IXA 116
 IND I,104
 LDC I,0
 EQU I
 FJP L13
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC   210
 IXA 116
 IND I,108
 CHK S,0,63
 LOD S,2,16
 INN
 NOT
 FJP L14
 LOD I,1,35488
 LDA 1,35760
 LOD I,2,8
 LOC   220
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   230
 IND I,108
 LOD I,1,35484
 LEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,108
 LOC   240
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L15
 MST 2,4,4
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC   250
 IXA 116
 IND I,108
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L15 LAB
L14 LAB
L13 LAB
L12 LAB
 RET P
L1 DEF        24
 SST P  FREEV093       2       4       0       0       4
 LOC     0
FREEV093 ENT P,2,L1  FREEVPAREG     1 1 1
 LOD A,2,8
 IND I,8
 LDC I,0
 EQU I
 FJP L2
 LOD I,1,35488
 LOD A,2,8
 IND I,12
 LEQ I
 LOC    10
 LOD A,2,8
 IND I,12
 LOD I,1,35484
 LEQ I
 AND
 LOD A,2,8
 IND I,12
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 LOC    20
 IOR
 FJP L3
 MST 2,4,4
 LOD A,2,8
 IND I,12
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L3 LAB
L2 LAB
 RET P
L1 DEF        12
 SST P  FREEV094       2       8       0       0       8
 LOC     0
FREEV094 ENT P,2,L1  FREEVPARGUNL   1 1 1
 LOD A,2,8
 IND I,8
 LDC I,0
 EQU I
 FJP L2
 LOD A,2,8
 IND I,12
 LOD I,2,12
 NEQ I
 LOC    10
 FJP L3
 LOD I,1,35488
 LOD A,2,8
 IND I,12
 LEQ I
 LOD A,2,8
 IND I,12
 LOD I,1,35484
 LEQ I
 AND
 LOC    20
 LOD A,2,8
 IND I,12
 CHK S,0,63
 LDC S,(0,0,0,80)
 INN
 IOR
 FJP L4
 MST 2,4,4
 LOD A,2,8
 IND I,12
 LOC    30
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L4 LAB
L3 LAB
L2 LAB
 RET P
L1 DEF        16
 SST P  FREE$095       2       0       0       4       0
 LOC     0
FREE$095 ENT P,2,L1  FREE_TEMP_RE   1 1 1
 LDA 1,35308
 LDC I,4
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L2
 MST 2,4,4
 LDC I,4
 LOC    10
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L2 LAB
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L3
 LOC    20
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L3 LAB
 LOD I,1,35488
 CHK I,0,31
 STR I,2,8
 LOD I,1,35484
 CHK I,0,31
 LOC    30
 STR I,2,12
 LOD I,2,8
 LOD I,2,12
 LEQ I
 FJP L5
L4 LAB
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 IND B,0
 LOC    40
 NOT
 FJP L6
 MST 2,4,4
 LOD I,2,8
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L6 LAB
 LOD I,2,8
 LOD I,2,12
 NEQ I
 LOC    50
 FJP L5
 LOD I,2,8
 INC I,1
 CHK I,0,31
 STR I,2,8
 UJP L4
L5 LAB
 RET P
L1 DEF        16
 SST P  BUILD096       2      16       0       0      16
 LOC     0
BUILD096 ENT P,2,L1  BUILD_CW_OPE   1 1 1
 MST 2,16,16
 LOD A,2,8
 PAR A
 LOD I,2,20
 LDC I,0
 ADI
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    10
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,8
 PAR A
 LOD I,2,20
 LOC    20
 LDC I,1
 ADI
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,4
 PAR I
 LOC    30
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,8
 PAR A
 LOD I,2,20
 LDC I,6
 ADI
 CHK I,0,35
 PAR I
 LDC I,6
 LOC    40
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,8
 PAR I
 CUP P,8,PUTFI022
 LOD A,2,16
 IND I,48
 LDC I,0
 NEQ I
 LOC    50
 FJP L2
 LOD A,2,16
 IND I,0
 LDC I,1
 EQU I
 NOT
 FJP L3
 MST 2,4,4
 LCA 'BUILD_CW_001'
 PAR A
 LOC    60
 CUP P,2,ASSER003
L3 LAB
 LOD A,2,16
 IND I,48
 ORD
 CHK I,0,5
 XJP L4
L8 LAB
 MST 2,8,8
 LDA 1,440
 PAR A
 LOD A,2,12
 LOC    70
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 UJP L7
L9 LAB
 MST 2,8,8
 LDA 1,416
 PAR A
 LOD A,2,12
 CHK A,-1,0
 PAR A
 LOC    80
 CUP P,4,ADD$C050
 UJP L7
L10 LAB
 MST 2,8,8
 LDA 1,428
 PAR A
 LOD A,2,12
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 UJP L7
L11 LAB
 LOC    90
 MST 2,8,8
 LDA 1,404
 PAR A
 LOD A,2,12
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 UJP L7
L12 LAB
 MST 2,8,8
 LOD A,2,16
 LOC   100
 IND A,52
 CHK A,0,0
 INC A,8
 PAR A
 LOD A,2,12
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 UJP L7
L4 DEF         1
L5 DEF         5
L6 LAB
 UJP L8
 LOC   110
 UJP L9
 UJP L10
 UJP L12
 UJP L11
L7 LAB
L2 LAB
 LOD A,2,16
 IND I,0
 LDC I,1
 EQU I
 FJP L13
 LOD A,2,16
 LOC   120
 IND I,12
 LDC I,1
 EQU I
 FJP L14
 LOD A,2,16
 IND I,8
 LDC I,0
 GRT I
 LOD A,2,16
 IND I,4
 LOC   130
 LDC I,1
 EQU I
 AND
 NOT
 FJP L15
 MST 2,4,4
 LCA 'BUILD_CW_002'
 PAR A
 CUP P,2,ASSER003
L15 LAB
 LOD A,2,12
 LOC   140
 CHK A,0,0
 INC A,4
 LOD A,2,16
 INC A,16
 MOV 8
 UJP L16
L14 LAB
 LOD A,2,16
 IND I,8
 LDC I,0
 GRT I
 LOC   150
 LOD A,2,16
 IND I,4
 LDC I,1
 EQU I
 AND
 NOT
 NOT
 FJP L17
 MST 2,4,4
 LCA 'BUILD_CW_003'
 LOC   160
 PAR A
 CUP P,2,ASSER003
L17 LAB
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 CHK I,0,35
 PAR I
 LOC   170
 LDC I,1
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,28
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 LOC   180
 INC A,4
 PAR A
 LDC I,1
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,24
 LOC   190
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,2
 CHK I,0,35
 PAR I
 LOC   200
 LDC I,1
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,20
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 LOC   210
 INC A,4
 PAR A
 LDC I,3
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,16
 LOC   220
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,4
 CHK I,0,35
 PAR I
 LOC   230
 LDC I,2
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,32
 PAR I
 CUP P,8,PUTFI022
 LOD A,2,16
 IND I,24
 LDC I,0
 LOC   240
 EQU I
 FJP L18
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LOC   250
 LDC I,30
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,36
 PAR I
 CUP P,8,PUTFI022
 UJP L19
L18 LAB
 MST 2,16,16
 LOD A,2,12
 LOC   260
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 LOD A,2,16
 LOC   270
 IND I,40
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 LOC   280
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 LOD A,2,16
 IND I,44
 PAR I
 CUP P,8,PUTFI022
L19 LAB
L16 LAB
L13 LAB
 RET P
L1 DEF        24
 SST P  EMIT$097       2       8       0       4       8
 LOC     0
EMIT$097 ENT P,2,L1  EMIT_INSTR_O   1 1 1
 LOD A,1,324
 LDC N
 EQU A
 FJP L2
 LOD A,1,328
 CHK A,-1,0
 STR A,1,324
 UJP L3
L2 LAB
 LOD A,1,320
 LOC    10
 CHK A,0,0
 LOD A,1,328
 CHK A,-1,0
 STO A
L3 LAB
 LOD A,1,328
 CHK A,-1,0
 STR A,1,320
 LOD A,1,328
 CHK A,0,0
 LDC N
 LOC    20
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 MST 2,4,4
 LDA 2,16
 PAR A
 LOC    30
 CUP P,2,NEWCO019
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LOD A,2,16
 CHK A,-1,0
 PAR A
 LOD A,2,12
 LOC    40
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,8,BUILD096
 LOD A,2,12
 IND I,0
 LDC I,1
 EQU I
 FJP L4
 LOC    50
 LOD A,1,320
 CHK A,0,0
 LOD A,2,16
 CHK A,-1,0
 STO A
 LOD A,2,16
 CHK A,-1,0
 STR A,1,320
 LOD A,2,16
 CHK A,0,0
 LOC    60
 LDC N
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 MST 2,4,4
 LDA 2,16
 LOC    70
 PAR A
 CUP P,2,NEWCO019
L4 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LOD A,2,16
 CHK A,-1,0
 PAR A
 LOC    80
 LOD A,2,8
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP P,8,BUILD096
 LOD A,2,8
 IND I,0
 LDC I,1
 EQU I
 LOC    90
 FJP L5
 LOD A,1,320
 CHK A,0,0
 LOD A,2,16
 CHK A,-1,0
 STO A
 LOD A,2,16
 CHK A,-1,0
 STR A,1,320
 LOD A,2,16
 LOC   100
 CHK A,0,0
 LDC N
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 MST 2,4,4
 LOC   110
 LDA 2,16
 PAR A
 CUP P,2,NEWCO019
L5 LAB
 LOD A,2,16
 CHK A,-1,0
 STR A,1,328
 RET P
L1 DEF        20
 SST P  INSER098       2      16       8      16      16
 LOC     0
INSER098 ENT P,2,L1  INSERT_INSTR   1 1 1
 LDA 2,24
 LOD A,2,12
 MOV 8
 MST 2,4,4
 LDA 2,44
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,8
 IND A,0
 LOC    10
 LDC N
 EQU A
 FJP L2
 LOD A,1,324
 CHK A,-1,0
 STR A,2,40
 LOD A,2,44
 CHK A,-1,0
 STR A,1,324
 UJP L3
L2 LAB
 LOC    20
 LOD A,1,324
 LDC N
 NEQ A
 NOT
 FJP L4
 MST 2,4,4
 LCA 'INSERT_IN001'
 PAR A
 CUP P,2,ASSER003
L4 LAB
 LOD A,2,8
 LOC    30
 IND A,0
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,40
 LOD A,2,8
 IND A,0
 CHK A,0,0
 LOD A,2,44
 CHK A,-1,0
 LOC    40
 STO A
L3 LAB
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 LOD A,2,44
 CHK A,-1,0
 STR A,2,36
 LOD A,2,20
 LOC    50
 IND I,0
 LDC I,1
 EQU I
 FJP L5
 MST 2,4,4
 LDA 2,32
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,36
 CHK A,0,0
 LOC    60
 LOD A,2,32
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 LOD A,2,32
 CHK A,-1,0
 LOC    70
 STR A,2,36
 UJP L6
L5 LAB
 LDC N
 CHK A,-1,0
 STR A,2,32
L6 LAB
 MST 2,16,16
 LDA 2,24
 PAR A
 LOD A,2,32
 CHK A,-1,0
 LOC    80
 PAR A
 LOD A,2,20
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,8,BUILD096
 LOD A,2,16
 IND I,0
 LDC I,1
 LOC    90
 EQU I
 FJP L7
 MST 2,4,4
 LDA 2,32
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,36
 CHK A,0,0
 LOD A,2,32
 CHK A,-1,0
 LOC   100
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 LOD A,2,32
 CHK A,-1,0
 STR A,2,36
 UJP L8
L7 LAB
 LOC   110
 LDC N
 CHK A,-1,0
 STR A,2,32
L8 LAB
 MST 2,16,16
 LDA 2,24
 PAR A
 LOD A,2,32
 CHK A,-1,0
 PAR A
 LOD A,2,16
 LOC   120
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP P,8,BUILD096
 LOD A,2,44
 CHK A,0,0
 INC A,4
 LDA 2,24
 MOV 8
 LOC   130
 LOD A,2,36
 CHK A,0,0
 LOD A,2,40
 CHK A,-1,0
 STO A
 LOD A,1,320
 LOD A,2,8
 IND A,0
 EQU A
 FJP L9
 LOC   140
 LOD A,2,36
 CHK A,-1,0
 STR A,1,320
L9 LAB
 LOD A,2,8
 LOD A,2,36
 CHK A,-1,0
 STO A
 RET P
L1 DEF        48
 SST P  EMITF076       2       8       0       0       8
 LOC     0
EMITF076 ENT P,2,L1  EMITFAKEINST   1 1 1
 LDA 1,23728
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'EMITFAKEI001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    30
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,24
 CHK I,1,36
 PAR I
 LOD I,2,12
 PAR I
 CUP P,8,PUTFI022
 LOD I,1,316
 LDC I,0
 EQU I
 FJP L3
 LOC    50
 LOD A,1,328
 CHK A,-1,0
 STR A,1,324
 UJP L4
L3 LAB
 LOD A,1,320
 CHK A,0,0
 LOD A,1,328
 CHK A,-1,0
 STO A
L4 LAB
 LOD A,1,328
 LOC    60
 CHK A,0,0
 LDC N
 CHK A,-1,0
 STO A
 LOD A,1,328
 CHK A,-1,0
 STR A,1,320
 LOD I,1,316
 LDC I,1
 ADI
 LOC    70
 CHK I,0,999999
 STR I,1,316
 MST 2,4,4
 LDA 1,328
 PAR A
 CUP P,2,NEWCO019
 RET P
L1 DEF        16
 SST P  INSER099       2      24       0      12      24
 LOC     0
INSER099 ENT P,2,L1  INSERTSOP      1 1 1
 LDA 1,23728
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,4
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'INSERTSOP001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 2,32
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LDA 2,32
 PAR A
 LOC    20
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,12
 CHK J,0,285
 IXA 4
 LOC    30
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LDA 2,32
 PAR A
 LDC I,8
 CHK I,0,35
 PAR I
 LDC I,4
 LOC    40
 CHK I,1,36
 PAR I
 LOD I,2,16
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LDA 2,8
 PAR A
 LDA 2,32
 PAR A
 LOC    50
 LOD A,2,20
 PAR A
 LOD A,2,24
 PAR A
 CUP P,8,INSER098
 MST 2,4,4
 LDA 2,40
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,40
 LOC    60
 CHK A,0,0
 LOD A,2,8
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STO A
 LOD A,2,8
 CHK A,0,0
 LOD A,2,40
 CHK A,-1,0
 LOC    70
 STO A
 LOD A,2,40
 CHK A,0,0
 INC A,4
 LOD A,2,28
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 LOC    80
 CHK I,0,999999
 STR I,1,316
 LOD A,2,40
 CHK A,0,0
 IND A,0
 LDC N
 EQU A
 FJP L3
 LOD A,2,40
 CHK A,-1,0
 LOC    90
 STR A,1,320
L3 LAB
 RET P
L1 DEF        44
 SST P  INSER100       2      24       0      12      24
 LOC     0
INSER100 ENT P,2,L1  INSERTJOP      1 1 1
 LDA 1,23728
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'INSERTJOP001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 2,32
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LDA 2,32
 PAR A
 LOC    20
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,12
 CHK J,0,285
 IXA 4
 LOC    30
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LDA 2,32
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    40
 CHK I,1,36
 PAR I
 LOD I,2,16
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LDA 2,8
 PAR A
 LDA 2,32
 PAR A
 LOC    50
 LOD A,2,20
 PAR A
 LOD A,2,24
 PAR A
 CUP P,8,INSER098
 MST 2,4,4
 LDA 2,40
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,40
 LOC    60
 CHK A,0,0
 LOD A,2,8
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STO A
 LOD A,2,8
 CHK A,0,0
 LOD A,2,40
 CHK A,-1,0
 LOC    70
 STO A
 LOD A,2,40
 CHK A,0,0
 INC A,4
 LOD A,2,28
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 LOC    80
 CHK I,0,999999
 STR I,1,316
 LOD A,2,40
 CHK A,0,0
 IND A,0
 LDC N
 EQU A
 FJP L3
 LOD A,2,40
 CHK A,-1,0
 LOC    90
 STR A,1,320
L3 LAB
 RET P
L1 DEF        44
 SST P  INSER101       2      16       0       8      16
 LOC     0
INSER101 ENT P,2,L1  INSERTXOP      1 1 1
 LDA 1,23728
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,3
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'INSERTXOP001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LDA 2,24
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LDA 2,24
 PAR A
 LOC    20
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,12
 CHK J,0,285
 IXA 4
 LOC    30
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LDA 2,8
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,16
 PAR A
 LOC    40
 LOD A,2,20
 PAR A
 CUP P,8,INSER098
 RET P
L1 DEF        32
 SST P  EMIT$102       2       8       0       0       8
 LOC     0
EMIT$102 ENT P,2,L1  EMIT_S1WORD    1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 FJP L2
 MST 2,4,4
 LOD A,2,8
 INC A,8
 PAR A
 LOC    10
 CUP P,2,NEWCO019
 LOD A,2,8
 INC A,4
 LOD A,2,8
 IND A,8
 CHK A,-1,0
 STO A
 LOD A,2,8
 LDC I,1
 CHK I,0,999999
 LOC    20
 STO I
 UJP L3
L2 LAB
 MST 2,4,4
 LOD A,2,8
 IND A,4
 CHK A,0,0
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,8
 INC A,4
 LOC    30
 LOD A,2,8
 IND A,4
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STO A
 LOD A,2,8
 LOD A,2,8
 IND I,0
 LDC I,1
 LOC    40
 ADI
 CHK I,0,999999
 STO I
L3 LAB
 LOD A,2,8
 IND A,4
 CHK A,0,0
 LDC N
 CHK A,-1,0
 STO A
 LOD A,2,8
 LOC    50
 IND A,4
 CHK A,0,0
 INC A,4
 LOD A,2,12
 MOV 8
 RET P
L1 DEF        16
 SST P  EMIT$103       2       8       0       0       8
 LOC     0
EMIT$103 ENT P,2,L1  EMIT_ZEROS1W   1 1 1
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 FJP L2
 MST 2,4,4
 LOD A,2,8
 INC A,8
 PAR A
 LOC    10
 CUP P,2,NEWCO019
 LOD A,2,8
 INC A,4
 LOD A,2,8
 IND A,8
 CHK A,-1,0
 STO A
 LOD A,2,8
 LDC I,1
 CHK I,0,999999
 LOC    20
 STO I
 UJP L3
L2 LAB
 MST 2,4,4
 LOD A,2,8
 IND A,4
 CHK A,0,0
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,8
 INC A,4
 LOC    30
 LOD A,2,8
 IND A,4
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STO A
 LOD A,2,8
 LOD A,2,8
 IND I,0
 LDC I,1
 LOC    40
 ADI
 CHK I,0,999999
 STO I
L3 LAB
 LOD A,2,8
 IND A,4
 CHK A,0,0
 LDC N
 CHK A,-1,0
 STO A
 LOD A,2,8
 LOC    50
 IND A,4
 CHK A,0,0
 INC A,4
 LDA 1,4568
 MOV 8
 LOD A,2,12
 LOD A,2,8
 IND A,4
 CHK A,-1,0
 STO A
 LOC    60
 RET P
L1 DEF        16
 SST P  EMITS104       2      20       0       0      20
 LOC     0
EMITS104 ENT P,2,L1  EMITSOP        1 1 1
 LDA 1,23728
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,4
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'EMITSOP  001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    30
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,8
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,4
 CHK I,1,36
 PAR I
 LOD I,2,12
 PAR I
 CUP P,8,PUTFI022
 MST 2,8,8
 LOD A,2,16
 PAR A
 LOD A,2,20
 LOC    50
 PAR A
 CUP P,4,EMIT$097
 LOD A,1,320
 CHK A,0,0
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,1,328
 CHK A,0,0
 LDC N
 LOC    60
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 LOD A,1,328
 CHK A,-1,0
 STR A,1,320
 LOC    70
 MST 2,4,4
 LDA 1,328
 PAR A
 CUP P,2,NEWCO019
 LOD A,1,320
 CHK A,0,0
 INC A,4
 LOD A,2,24
 CHK A,-1,0
 STO A
 LOC    80
 RET P
L1 DEF        28
 SST P  EMITJ105       2      20       0       0      20
 LOC     0
EMITJ105 ENT P,2,L1  EMITJOP        1 1 1
 LDA 1,23728
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'EMITJOP  001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    30
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,1
 CHK I,1,36
 PAR I
 LOD I,2,12
 PAR I
 CUP P,8,PUTFI022
 MST 2,8,8
 LOD A,2,16
 PAR A
 LOD A,2,20
 LOC    50
 PAR A
 CUP P,4,EMIT$097
 LOD A,1,320
 CHK A,0,0
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,1,328
 CHK A,0,0
 LDC N
 LOC    60
 CHK A,-1,0
 STO A
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
 LOD A,1,328
 CHK A,-1,0
 STR A,1,320
 LOC    70
 MST 2,4,4
 LDA 1,328
 PAR A
 CUP P,2,NEWCO019
 LOD A,1,320
 CHK A,0,0
 INC A,4
 LOD A,2,24
 CHK A,-1,0
 STO A
 LOC    80
 RET P
L1 DEF        28
 SST P  EMITT106       2      16       0       0      16
 LOC     0
EMITT106 ENT P,2,L1  EMITTOP        1 1 1
 LDA 1,23728
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,1
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'EMITTOP  001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    30
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,10
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,2
 CHK I,1,36
 PAR I
 LOD I,2,12
 PAR I
 CUP P,8,PUTFI022
 MST 2,8,8
 LOD A,2,16
 PAR A
 LOD A,2,20
 LOC    50
 PAR A
 CUP P,4,EMIT$097
 RET P
L1 DEF        24
 SST P  EMITX077       2      12       0      52      12
 LOC     0
EMITX077 ENT P,2,L1  EMITXOP        1 1 1
 LDA 1,23728
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,3
 EQU I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'EMITXOP  001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,16,16
 LOD A,1,328
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LOD I,2,8
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    30
 PAR I
 CUP P,8,PUTFI022
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,16
 PAR A
 CUP P,4,EMIT$097
 RET P
L1 DEF        72
 SST P  ALLOC107       2      32       0      60      32
 LOC     0
ALLOC107 ENT P,2,L1  ALLOC_AND_EM   1 1 1
 LDA 1,22584
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 NEQ I
 NOT
 FJP L2
 LOC    10
 MST 2,4,4
 LCA 'ALLOC_AND001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,IS$T$059
 LOD B,2,24
 LOD B,2,28
 LOC    20
 LEQ B
 AND
 FJP L3
 MST 2,4,4
 LOD A,2,20
 PAR A
 CUP B,2,IS$T$059
 LOD B,2,24
 LOD B,2,32
 LEQ B
 LOC    30
 AND
 LOD A,2,20
 IND I,8
 LOD A,2,16
 IND I,8
 LES I
 AND
 FJP L4
 LOD A,2,8
 LOD A,2,20
 LOC    40
 IND I,8
 CHK I,0,31
 STO I
 MST 2,16,16
 LDA 1,22584
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 CHK I,0,285
 LOC    50
 PAR I
 LDC I,0
 CHK I,0,3
 PAR I
 LOD A,2,20
 PAR A
 LOD A,2,16
 PAR A
 CUP P,8,EMITT106
 LOD B,2,32
 LOC    60
 LOD B,2,24
 NOT
 AND
 FJP L5
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 LOC    70
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L5 LAB
 UJP L6
L4 LAB
 LOD A,2,8
 LOD A,2,16
 IND I,8
 LOC    80
 CHK I,0,31
 STO I
 MST 2,16,16
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,3
 PAR I
 LOD A,2,16
 LOC    90
 PAR A
 LOD A,2,20
 PAR A
 CUP P,8,EMITT106
 LOD B,2,28
 LOD B,2,24
 NOT
 AND
 FJP L7
 MST 2,4,4
 LOC   100
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 LOC   110
 CUP P,2,ALLOC080
L7 LAB
L6 LAB
 UJP L8
L3 LAB
 MST 2,4,4
 LOD A,2,20
 PAR A
 CUP B,2,IS$T$059
 LOD B,2,24
 LOD B,2,32
 LEQ B
 AND
 LOC   120
 FJP L9
 LOD A,2,8
 LOD A,2,20
 IND I,8
 CHK I,0,31
 STO I
 MST 2,16,16
 LDA 1,22584
 LOD I,2,12
 CHK J,0,285
 LOC   130
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,3
 PAR I
 LOD A,2,20
 PAR A
 LOD A,2,16
 LOC   140
 PAR A
 CUP P,8,EMITT106
 LOD B,2,32
 LOD B,2,24
 NOT
 AND
 FJP L10
 MST 2,4,4
 LOD A,2,8
 IND I,0
 LOC   150
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L10 LAB
 UJP L11
L9 LAB
 LOC   160
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,IS$RT067
 FJP L12
 LOD B,2,24
 FJP L13
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L14
L13 LAB
 LOC   170
 MST 2,0,0
 CUP P,0,FINDR084
L14 LAB
 LOD A,2,8
 LOD I,1,35476
 CHK I,0,31
 STO I
 MST 2,8,8
 LDA 2,40
 PAR A
 LOD A,2,8
 LOC   180
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,16,16
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDC I,1
 CHK I,0,3
 LOC   190
 PAR I
 LDA 2,40
 PAR A
 LOD A,2,20
 PAR A
 CUP P,8,EMITT106
 UJP L15
L12 LAB
 MST 2,4,4
 LOD A,2,20
 PAR A
 LOC   200
 CUP B,2,IS$RT067
 FJP L16
 LOD B,2,24
 FJP L17
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L18
L17 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L18 LAB
 LOD A,2,8
 LOC   210
 LOD I,1,35476
 CHK I,0,31
 STO I
 MST 2,8,8
 LDA 2,40
 PAR A
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 LOC   220
 CUP P,4,REG$O063
 MST 2,16,16
 LDA 1,22584
 LOD I,2,12
 CHK J,0,285
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDC I,1
 LOC   230
 CHK I,0,3
 PAR I
 LDA 2,40
 PAR A
 LOD A,2,16
 PAR A
 CUP P,8,EMITT106
 UJP L19
L16 LAB
 LDA 1,35308
 LDC I,4
 LOC   240
 CHK J,0,31
 IXA 1
 IND B,0
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,USES$069
 IOR
 MST 2,4,4
 LOD A,2,20
 LOC   250
 PAR A
 CUP B,2,USES$069
 IOR
 FJP L20
 LDA 1,35308
 LDC I,4
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOC   260
 FJP L21
 MST 2,4,4
 LDC I,4
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L21 LAB
 LOD B,2,24
 FJP L22
 MST 2,4,4
 LDC I,4
 LOC   270
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC081
 UJP L23
L22 LAB
 MST 2,4,4
 LDC I,4
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L23 LAB
 LOD A,2,8
 LOC   280
 LDC I,4
 CHK I,0,31
 STO I
 MST 2,16,16
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDC I,2
 CHK I,0,3
 PAR I
 LOC   290
 LOD A,2,16
 PAR A
 LOD A,2,20
 PAR A
 CUP P,8,EMITT106
 UJP L24
L20 LAB
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 LOC   300
 IND B,0
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,USES$070
 IOR
 MST 2,4,4
 LOD A,2,20
 PAR A
 CUP B,2,USES$070
 LOC   310
 IOR
 FJP L25
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L26
 MST 2,4,4
 LOC   320
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L26 LAB
 LOD B,2,24
 FJP L27
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 LOC   330
 CUP P,2,ALLOC081
 UJP L28
L27 LAB
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L28 LAB
 LOD I,2,36
 CHK I,-1,30
 STR I,1,35492
 LOC   340
 LOD B,2,24
 STR B,1,35496
 LOD A,2,8
 LDC I,6
 CHK I,0,31
 STO I
 MST 2,16,16
 LOD I,2,12
 CHK I,0,285
 PAR I
 LOC   350
 LDC I,3
 CHK I,0,3
 PAR I
 LOD A,2,16
 PAR A
 LOD A,2,20
 PAR A
 CUP P,8,EMITT106
 UJP L29
L25 LAB
 LOD B,2,28
 LOC   360
 LOD B,2,24
 IOR
 FJP L30
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L31
L30 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L31 LAB
 MST 2,8,8
 LDA 2,40
 LOC   370
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOD B,2,28
 FJP L32
 LDC I,82
 CHK I,0,285
 STR I,2,96
 LOC   380
 UJP L33
L32 LAB
 LDC I,75
 CHK I,0,285
 STR I,2,96
L33 LAB
 MST 2,12,12
 LOD I,2,96
 CHK I,0,285
 PAR I
 LDA 2,40
 PAR A
 LOC   390
 LOD A,2,16
 PAR A
 CUP P,6,EMITX077
 LOD A,2,8
 LOD I,1,35476
 CHK I,0,31
 STO I
 MST 2,16,16
 LOD I,2,12
 CHK I,0,285
 LOC   400
 PAR I
 LDC I,0
 CHK I,0,3
 PAR I
 LDA 2,40
 PAR A
 LOD A,2,20
 PAR A
 CUP P,8,EMITT106
 LOD B,2,28
 LOC   410
 LOD B,2,24
 NOT
 AND
 FJP L34
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 LOC   420
 MST 2,4,4
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L34 LAB
L29 LAB
L24 LAB
L19 LAB
L15 LAB
L11 LAB
L8 LAB
 RET P
L1 DEF       100
 SST P  REG$D113       2      16       0       0      16
 LOC     0
REG$D113 ENT P,2,L1  REG_DATUM      1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,24
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    10
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LOD A,2,24
 LOD A,2,12
 CHK A,-1,0
 STO A
 LOD A,2,24
 INC A,4
 LOC    20
 LOD I,2,16
 CHK I,0,15
 STO I
 LOD A,2,24
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 LOD A,2,24
 INC A,84
 LOC    30
 LDC I,0
 STO I
 LOD A,2,24
 INC A,88
 LOD I,2,20
 CHK I,0,31
 STO I
 RET P
L1 DEF        28
 SST P  COERC114       2       8       0     116       8
 LOC     0
COERC114 ENT P,2,L1  COERCE_DATUM   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,132
 LOD A,2,132
 IND I,4
 LOD I,2,12
 LOC    10
 NEQ I
 FJP L2
 LDA 1,32084
 LOD I,2,12
 CHK J,0,15
 IXA 64
 LOD A,2,132
 IND I,4
 CHK J,0,15
 IXA 4
 LOC    20
 IND I,0
 CHK I,0,285
 STR I,2,128
 LOD I,2,128
 LDC I,0
 EQU I
 FJP L3
 MST 2,4,4
 LDC I,31
 CHK I,0,68
 LOC    30
 PAR I
 CUP P,2,ERROR005
L3 LAB
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L4
 LOD A,2,132
 IND I,4
 LOC    40
 LDC I,4
 EQU I
 LOD I,2,12
 LDC I,2
 EQU I
 AND
 FJP L5
 UJP L6
L5 LAB
 LOD A,2,132
 INC A,4
 LOC    50
 LOD I,2,12
 CHK I,0,15
 STO I
L6 LAB
 UJP L7
L4 LAB
 LOD A,2,132
 IND I,4
 LDC I,3
 EQU I
 FJP L8
 LOD I,2,12
 LOC    60
 LDC I,2
 EQU I
 NOT
 FJP L9
 MST 2,4,4
 LCA 'COERCE_DA001'
 PAR A
 CUP P,2,ASSER003
L9 LAB
L10 LAB
 MST 2,4,4
 LOD I,2,8
 LOC    70
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 LOD A,2,132
 IND I,4
 LDC I,2
 EQU I
 FJP L10
 UJP L11
L8 LAB
 MST 2,8,8
 LOC    80
 LDA 2,72
 PAR A
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC    90
 CUP P,2,FREED090
 LDA 1,30932
 LOD I,2,12
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L12
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L13
L12 LAB
 LOC   100
 MST 2,0,0
 CUP P,0,FINDR084
L13 LAB
 MST 2,8,8
 LDA 2,16
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOC   110
 LOD I,2,128
 CHK I,0,285
 PAR I
 LDA 2,16
 PAR A
 LDA 2,72
 PAR A
 CUP P,6,EMITX077
 MST 2,16,16
 LOD I,2,8
 LOC   120
 CHK I,-1,30
 PAR I
 LOD A,2,132
 IND A,0
 CHK A,-1,0
 PAR A
 LOD I,2,12
 CHK I,0,15
 PAR I
 LOD I,1,35476
 LOC   130
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L11 LAB
L7 LAB
L2 LAB
 RET P
L1 DEF       136
 SST P  COERC115       2       4       0      12       4
 LOC     0
COERC115 ENT P,2,L1  COERCE_TWO_D   1 1 1
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 LOC    10
 STR I,2,20
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 STR I,2,16
 LOD A,2,8
 LOC    20
 LOD I,2,20
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 LOD A,2,8
 LOD I,2,16
 CHK J,0,15
 IXA 1
 IND B,0
 LOC    30
 NOT
 IOR
 FJP L2
 MST 2,4,4
 LDC I,5
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L2 LAB
 LDA 1,33108
 LOD I,2,20
 LOC    40
 CHK J,0,15
 IXA 64
 LOD I,2,16
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,15
 STR I,2,12
 LOD I,2,12
 LDC I,0
 LOC    50
 EQU I
 FJP L3
 MST 2,4,4
 LDC I,5
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L3 LAB
 MST 2,8,8
 LOD I,1,39472
 LDC I,1
 LOC    60
 SBI
 CHK I,-1,30
 PAR I
 LOD I,2,12
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 LOC    70
 PAR I
 LOD I,2,12
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 RET P
L1 DEF        24
 SST B  DATUM116       2       4       0       0       4
 LOC     0
DATUM116 ENT B,2,L1  DATUM_IS_REG   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC    10
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 LDA 1,35760
 LOD I,2,8
 LOC    20
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,4
 LDC I,5
 NEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    40
 IND I,8
 LDC I,0
 EQU I
 IOR
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    50
 IND I,72
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,80
 LOC    60
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,76
 LDC I,0
 LOC    70
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,84
 LDC I,0
 EQU I
 LOC    80
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  DATUM117       2       4       0       0       4
 LOC     0
DATUM117 ENT B,2,L1  DATUM_IS_T_R   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC    10
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 LDA 1,35760
 LOD I,2,8
 LOC    20
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,4
 LDC I,5
 NEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    40
 IND I,8
 LDC I,0
 EQU I
 IOR
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    50
 IND I,72
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,80
 LOC    60
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,76
 LDC I,0
 LOC    70
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,84
 LDC I,0
 EQU I
 LOC    80
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LDC I,4
 EQU I
 LDA 1,35760
 LOC    90
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LDC I,6
 EQU I
 IOR
 LOD I,1,35488
 LDA 1,35760
 LOC   100
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC   110
 IXA 116
 IND I,88
 LOD I,1,35484
 LEQ I
 AND
 IOR
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  DATUM118       2       4       0       0       4
 LOC     0
DATUM118 ENT B,2,L1  DATUM_IS_FIL   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 EQU I
 LDA 1,35760
 LOC    10
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 LOC    20
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    40
 IXA 116
 IND I,76
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    50
 IND I,80
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,84
 LOC    60
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,92
 LDC I,1
 LOC    70
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,88
 LDC I,8
 LDC I,172
 LOC    80
 SBI
 EQU I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST P  LOADS119       2       8       0      64       8
 LOC     0
LOADS119 ENT P,2,L1  LOADSTACKEXC   1 1 1
 LDC I,1
 CHK I,-1,30
 STR I,2,72
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,80
 LOD I,2,72
 LOD I,2,80
 LEQ I
 LOC    10
 FJP L3
L2 LAB
 LDA 1,35760
 LOD I,2,72
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,84
 LOD I,2,72
 LOD I,2,8
 LES I
 LOC    20
 LOD I,2,72
 LOD I,2,12
 GRT I
 IOR
 LOD A,2,84
 IND I,72
 LDC I,0
 GRT I
 AND
 LOD A,2,84
 LOC    30
 IND I,4
 LDC I,5
 NEQ I
 LOD A,2,84
 IND I,8
 LDC I,0
 EQU I
 IOR
 AND
 MST 2,4,4
 LOC    40
 LOD I,2,72
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM118
 NOT
 AND
 MST 2,4,4
 LOD I,2,72
 CHK I,-1,30
 PAR I
 LOC    50
 CUP B,2,DATUM117
 NOT
 AND
 FJP L4
 LDA 1,30932
 LOD A,2,84
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOC    60
 FJP L5
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L6
L5 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L6 LAB
 LOD I,1,35476
 CHK I,0,31
 STR I,2,76
 MST 2,8,8
 LOC    70
 LDA 2,16
 PAR A
 LOD I,2,76
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,16
 PAR A
 LOD I,2,72
 LOC    80
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,2,72
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,16,16
 LOD I,2,72
 LOC    90
 CHK I,-1,30
 PAR I
 LOD A,2,84
 IND A,0
 CHK A,-1,0
 PAR A
 LOD A,2,84
 IND I,4
 CHK I,0,15
 PAR I
 LOC   100
 LOD I,2,76
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L4 LAB
 LOD I,2,72
 LOD I,2,80
 NEQ I
 FJP L3
 LOD I,2,72
 INC I,1
 LOC   110
 CHK I,-1,30
 STR I,2,72
 UJP L2
L3 LAB
 RET P
L1 DEF        88
 SST P  BJUMP120       2       4       0     144       4
 LOC     0
BJUMP120 ENT P,2,L1  BJUMP_TO_BIN   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,156
 LOD A,2,156
 IND I,4
 LDC I,5
 LOC    10
 EQU I
 LOD A,2,156
 IND I,8
 LDC I,1
 EQU I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'BJUMP_TO_001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,4,4
 LOD A,2,156
 IND A,36
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,16
 LOC    30
 LOD A,2,156
 IND I,12
 LOD A,2,156
 IND I,24
 LES I
 FJP L3
 LDC B,1
 STR B,2,12
 UJP L4
L3 LAB
 LDC B,0
 LOC    40
 STR B,2,12
L4 LAB
 MST 2,4,4
 LOD A,2,156
 IND A,36
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,152
 LOD A,2,152
 LOC    50
 CHK A,0,0
 MST 2,4,4
 LOD A,2,152
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STO A
 LOC    60
 LOD B,2,12
 LOD A,2,156
 IND B,40
 NEQ B
 FJP L5
 MST 2,4,4
 LOD A,2,156
 IND A,36
 CHK A,-1,0
 PAR A
 LOC    70
 CUP P,2,INVER045
 LOD A,2,156
 INC A,40
 LOD A,2,156
 IND B,40
 NOT
 STO B
L5 LAB
 MST 2,8,8
 LDA 2,76
 PAR A
 LOC    80
 LOD A,2,156
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOD B,2,12
 LDC B,1
 EQU B
 FJP L6
 MST 2,8,8
 LOC    90
 LDA 2,20
 PAR A
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 MST 2,16,16
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LDC I,67
 LOC   100
 CHK I,0,285
 PAR I
 LDA 2,76
 PAR A
 LDA 2,20
 PAR A
 CUP P,8,INSER101
 LOD A,2,152
 CHK A,0,0
 IND A,0
 LOC   110
 CHK A,-1,0
 STR A,2,144
 LOD A,2,144
 CHK A,-1,0
 STR A,2,152
 MST 2,24,24
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LDC I,169
 LOC   120
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 1,4400
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 LOC   130
 CHK A,-1,0
 PAR A
 CUP P,12,INSER099
 LOD A,2,152
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,136
 MST 2,4,4
 LOD A,2,136
 LOC   140
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,152
 MST 2,16,16
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LDC I,67
 LOC   150
 CHK I,0,285
 PAR I
 LDA 2,76
 PAR A
 LDA 1,4400
 PAR A
 CUP P,8,INSER101
 LOD A,2,152
 CHK A,0,0
 IND A,0
 LOC   160
 CHK A,-1,0
 STR A,2,140
 MST 2,8,8
 LOD A,2,156
 IND A,36
 CHK A,-1,0
 PAR A
 LOD A,2,140
 CHK A,-1,0
 PAR A
 LOC   170
 CUP P,4,FIXSO046
 MST 2,4,4
 LOD A,2,140
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,132
 LOD A,2,132
 LDC N
 LOC   180
 NEQ A
 FJP L7
 MST 2,8,8
 LOD A,2,136
 CHK A,-1,0
 PAR A
 LOD A,2,132
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LOC   190
 UJP L8
L7 LAB
 MST 2,8,8
 LOD A,2,136
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
L8 LAB
 UJP L9
L6 LAB
 LOC   200
 MST 2,16,16
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LDC I,67
 CHK I,0,285
 PAR I
 LDA 2,76
 PAR A
 LDA 1,4400
 LOC   210
 PAR A
 CUP P,8,INSER101
 LOD A,2,152
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,140
 LOD A,2,140
 CHK A,-1,0
 STR A,2,152
 LOC   220
 MST 2,24,24
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LDC I,169
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LOC   230
 LDA 1,4400
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,12,INSER099
 LOD A,2,152
 CHK A,0,0
 LOC   240
 IND A,0
 CHK A,-1,0
 STR A,2,136
 MST 2,4,4
 LOD A,2,136
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 STR A,2,152
 LOC   250
 MST 2,8,8
 LDA 2,20
 PAR A
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 MST 2,16,16
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LOC   260
 LDC I,67
 CHK I,0,285
 PAR I
 LDA 2,76
 PAR A
 LDA 2,20
 PAR A
 CUP P,8,INSER101
 LOD A,2,152
 CHK A,0,0
 LOC   270
 IND A,0
 CHK A,-1,0
 STR A,2,144
 MST 2,8,8
 LOD A,2,156
 IND A,36
 CHK A,-1,0
 PAR A
 LOD A,2,144
 CHK A,-1,0
 LOC   280
 PAR A
 CUP P,4,FIXSO046
 MST 2,4,4
 LOD A,2,144
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,132
 LOD A,2,132
 LOC   290
 LDC N
 NEQ A
 FJP L10
 MST 2,8,8
 LOD A,2,136
 CHK A,-1,0
 PAR A
 LOD A,2,132
 CHK A,-1,0
 PAR A
 LOC   300
 CUP P,4,FIXSO046
 UJP L11
L10 LAB
 MST 2,8,8
 LOD A,2,136
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
L11 LAB
L9 LAB
 LOC   310
 LOD A,2,156
 IND A,20
 CHK A,-1,0
 STR A,2,152
L12 LAB
 LOD A,2,152
 LDC N
 NEQ A
 FJP L13
 MST 2,4,4
 LOD A,2,152
 LOC   320
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,148
 MST 2,8,8
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LOD A,2,144
 LOC   330
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,148
 CHK A,-1,0
 STR A,2,152
 UJP L12
L13 LAB
 LOD A,2,156
 IND A,32
 CHK A,-1,0
 LOC   340
 STR A,2,152
L14 LAB
 LOD A,2,152
 LDC N
 NEQ A
 FJP L15
 MST 2,4,4
 LOD A,2,152
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 LOC   350
 CHK A,-1,0
 STR A,2,148
 MST 2,8,8
 LOD A,2,152
 CHK A,-1,0
 PAR A
 LOD A,2,140
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOC   360
 LOD A,2,148
 CHK A,-1,0
 STR A,2,152
 UJP L14
L15 LAB
 MST 2,16,16
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOD A,2,156
 IND A,0
 LOC   370
 CHK A,-1,0
 PAR A
 LDC I,5
 CHK I,0,15
 PAR I
 LOD A,2,156
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOC   380
 LOD A,2,156
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
 RET P
L1 DEF       160
 SST P  INCRE121       2       8       0     124       8
 LOC     0
INCRE121 ENT P,2,L1  INCREMENT_DA   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,140
 LOD A,2,140
 IND I,4
 ORD
 LOC    10
 CHK S,0,63
 LDC S,(0,0,0,3948)
 INN
 NOT
 FJP L2
 MST 2,4,4
 LDC I,45
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L2 LAB
 LOC    20
 LOD I,2,12
 LDC I,0
 NEQ I
 FJP L3
 LOD A,2,140
 IND I,4
 CHK I,0,15
 STR I,2,16
 LOD A,2,140
 IND I,4
 LOC    30
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 INN
 FJP L4
 LOD A,2,140
 IND I,4
 LDC I,5
 EQU I
 LOD A,2,140
 LOC    40
 IND I,8
 LDC I,1
 EQU I
 AND
 FJP L5
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,2,BJUMP120
L5 LAB
 LOC    50
 LOD A,2,140
 INC A,4
 LDC I,8
 CHK I,0,15
 STO I
L4 LAB
 LOD A,2,140
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,2060)
 LOC    60
 INN
 NOT
 FJP L6
 MST 2,8,8
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 LOC    70
 CUP P,4,COERC114
L6 LAB
 LOD A,2,140
 IND I,4
 LDC I,11
 EQU I
 FJP L7
 MST 2,8,8
 LDA 2,76
 PAR A
 LOD I,2,8
 LOC    80
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,20
 PAR A
 LOD I,2,12
 PAR I
 CUP P,4,IMM$O064
 MST 2,32,32
 LOC    90
 LDA 2,136
 PAR A
 LDC I,9
 CHK I,0,285
 PAR I
 LDA 2,76
 PAR A
 LDA 2,20
 PAR A
 LDC B,1
 LOC   100
 PAR B
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOC   110
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOD I,2,136
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,2,8
 CHK I,-1,30
 LOC   120
 PAR I
 LOD A,2,140
 IND A,0
 CHK A,-1,0
 PAR A
 LDC I,11
 CHK I,0,15
 PAR I
 LOD I,2,136
 CHK I,0,31
 LOC   130
 PAR I
 CUP P,8,REG$D113
 UJP L8
L7 LAB
 LDC B,0
 STR B,2,133
 LDC B,0
 STR B,2,132
L9 LAB
 LOD A,2,140
 IND I,56
 LDC I,0
 LOC   140
 EQU I
 FJP L10
 LDC B,1
 STR B,2,133
 UJP L11
L10 LAB
 MST 2,12,12
 LDA 2,134
 PAR A
 LDA 2,76
 PAR A
 LOC   150
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,134
 FJP L12
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC   160
 CUP P,2,SIMPL111
 UJP L13
L12 LAB
 LDC B,1
 STR B,2,132
L13 LAB
L11 LAB
 LOD B,2,133
 LOD B,2,132
 IOR
 FJP L9
 LOD B,2,133
 FJP L14
 LOC   170
 LOD A,2,140
 INC A,64
 LOD A,2,140
 IND I,64
 LOD I,2,12
 ADI
 STO I
 UJP L15
L14 LAB
 MST 2,8,8
 LDA 2,20
 LOC   180
 PAR A
 LOD I,2,12
 PAR I
 CUP P,4,IMM$O064
 MST 2,20,20
 LDA 2,136
 PAR A
 LDC I,8
 CHK I,0,285
 PAR I
 LOC   190
 LDA 2,76
 PAR A
 LDA 2,20
 PAR A
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,10,ADD$S112
 MST 2,8,8
 LOD I,2,8
 LOC   200
 CHK I,-1,30
 PAR I
 LOD I,2,136
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC   210
 LOD A,2,140
 IND A,0
 CHK A,-1,0
 PAR A
 LOD A,2,140
 IND I,4
 CHK I,0,15
 PAR I
 LOD I,2,136
 CHK I,0,31
 LOC   220
 PAR I
 CUP P,8,REG$D113
L15 LAB
L8 LAB
 LOD I,2,16
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 INN
 FJP L16
 MST 2,8,8
 LOD I,2,8
 LOC   230
 CHK I,-1,30
 PAR I
 LDC I,8
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOD A,2,140
 INC A,4
 LOD I,2,16
 CHK I,0,15
 LOC   240
 STO I
 LOD A,2,140
 IND I,4
 LDC I,5
 EQU I
 FJP L17
 LOD A,2,140
 INC A,8
 LDC I,0
 CHK I,0,1
 LOC   250
 STO I
L17 LAB
L16 LAB
L3 LAB
 RET P
L1 DEF       144
 SST P  BINTV122       2       4       0      64       4
 LOC     0
BINTV122 ENT P,2,L1  BINTVAL_TO_B   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,76
 LOD A,2,76
 IND I,4
 LDC I,5
 LOC    10
 EQU I
 LOD A,2,76
 IND I,8
 LDC I,0
 EQU I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'BINTVAL_T001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 2,12
 PAR A
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LOC    30
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,4,LOADS119
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 LOC    40
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOD I,2,8
 NEQ I
 AND
 FJP L3
 MST 2,0,0
 CUP P,0,MOVE$085
L3 LAB
 LOC    50
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LOD A,1,328
 CHK A,-1,0
 STR A,2,68
 MST 2,20,20
 LDC I,169
 LOC    60
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,12
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 LOC    70
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LOC    80
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,68
 LOC    90
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LOD A,2,76
 IND A,0
 CHK A,-1,0
 STR A,2,72
 LOC   100
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LOD A,2,76
 LOD A,2,72
 CHK A,-1,0
 LOC   110
 STO A
 LOD A,2,76
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,2,76
 INC A,72
 LDC I,1
 CHK I,0,2
 LOC   120
 STO I
 MST 2,0,0
 CUP P,0,FINDR084
 LOD A,2,76
 INC A,84
 LDC I,0
 STO I
 LOD A,2,76
 INC A,88
 LOD I,1,35476
 LOC   130
 CHK I,0,31
 STO I
 LOD A,2,76
 INC A,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,2,76
 INC A,12
 LDA 1,4736
 LOC   140
 MOV 12
 LOD A,2,76
 INC A,24
 LDA 1,4736
 MOV 12
 LOD A,2,76
 INC A,40
 LDC B,1
 STO B
 LOD A,2,76
 LOC   150
 INC A,36
 LOD A,2,68
 CHK A,-1,0
 STO A
 RET P
L1 DEF        80
 SST P  PARMR123       2       8       0       4       8
 LOC     0
PARMR123 ENT P,2,L1  PARMREG_TO_P   1 1 1
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,2,20
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    10
 IXA 116
 STR A,2,24
 LOD A,2,24
 IND I,72
 LDC I,1
 GEQ I
 FJP L2
 LOD A,2,24
 IND I,84
 LDC I,0
 LOC    20
 EQU I
 FJP L3
 MST 2,4,4
 LOD A,2,24
 IND I,88
 CHK I,0,31
 PAR I
 CUP B,2,IS$PA087
 FJP L4
 LDA 1,35572
 LOC    30
 LOD A,2,24
 IND I,88
 CHK J,0,31
 IXA 4
 IND I,0
 LOD I,2,12
 LES I
 FJP L5
 LDA 1,35572
 LOD A,2,24
 LOC    40
 IND I,88
 CHK J,0,31
 IXA 4
 IND I,0
 STR I,2,16
 LOD A,2,24
 INC A,84
 LDC I,1
 STO I
 LOD A,2,24
 LOC    50
 INC A,92
 LOD I,1,5032
 CHK I,0,8
 STO I
 LOD A,2,24
 INC A,88
 LOD A,2,20
 IND I,24
 NGI
 LOD A,2,20
 LOC    60
 IND I,40
 SBI
 LOD A,2,20
 IND I,44
 SBI
 LOD I,2,16
 LDC I,4
 MPI
 ADI
 STO I
 LOC    70
 LOD A,2,24
 IND I,72
 LDC I,2
 GEQ I
 FJP L6
 LOD A,2,24
 IND I,104
 LDC I,0
 EQU I
 FJP L7
 LOC    80
 MST 2,4,4
 LOD A,2,24
 IND I,108
 CHK I,0,31
 PAR I
 CUP B,2,IS$PA087
 FJP L8
 LDA 1,35572
 LOD A,2,24
 IND I,108
 LOC    90
 CHK J,0,31
 IXA 4
 IND I,0
 LOD I,2,12
 LES I
 FJP L9
 LDA 1,35572
 LOD A,2,24
 IND I,108
 CHK J,0,31
 LOC   100
 IXA 4
 IND I,0
 STR I,2,16
 LOD A,2,24
 INC A,104
 LDC I,1
 STO I
 LOD A,2,24
 INC A,112
 LOD I,1,5032
 LOC   110
 CHK I,0,8
 STO I
 LOD A,2,24
 INC A,108
 LOD A,2,20
 IND I,24
 NGI
 LOD A,2,20
 IND I,40
 SBI
 LOC   120
 LOD A,2,20
 IND I,44
 SBI
 LOD I,2,16
 LDC I,4
 MPI
 ADI
 STO I
L9 LAB
L8 LAB
L7 LAB
L6 LAB
L5 LAB
L4 LAB
L3 LAB
L2 LAB
 RET P
L1 DEF        28
 SST P  TRANS124       2       4       0       4       4
 LOC     0
TRANS124 ENT P,2,L1  TRANSLATE_LV   1 1 1
 LOD A,2,8
 IND I,0
 LDC I,1
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'TRANSL_LV001'
 PAR A
 LOC    10
 CUP P,2,ASSER003
L2 LAB
 LOD A,2,8
 IND I,8
 LOD I,1,5032
 LEQ I
 NOT
 FJP L3
 MST 2,4,4
 LCA 'TRANSL_LV002'
 PAR A
 LOC    20
 CUP P,2,ASSER003
L3 LAB
 LOD A,2,8
 IND I,8
 CHK I,0,8
 STR I,2,12
 LDA 1,39928
 LOD I,2,12
 CHK J,0,8
 IXA 48
 STR A,2,16
 LOC    30
 LOD A,2,8
 IND I,4
 LDC I,0
 LEQ I
 FJP L4
 LOD A,2,8
 INC A,4
 LOD A,2,8
 IND I,4
 LOD A,2,16
 LOC    40
 IND I,20
 SBI
 STO I
 UJP L5
L4 LAB
 LOD A,2,8
 IND I,4
 LOD A,2,16
 IND I,32
 GEQ I
 LOD A,2,8
 LOC    50
 IND I,4
 LOD A,2,16
 IND I,32
 LOD A,2,16
 IND I,28
 ADI
 LES I
 AND
 LOD A,2,8
 IND I,8
 LOC    60
 LOD I,1,5032
 EQU I
 AND
 LOD I,1,44
 LDC I,27
 NEQ I
 AND
 FJP L6
 LOD A,2,8
 INC A,4
 LOC    70
 LDA 1,35532
 LOD A,2,8
 IND I,4
 LOD A,2,16
 IND I,32
 SBI
 LDC I,4
 DVI
 CHK J,0,9
 IXA 4
 LOC    80
 IND I,0
 CHK I,0,31
 STO I
 LOD A,2,8
 LDC I,0
 STO I
 UJP L7
L6 LAB
 LOD A,2,8
 INC A,4
 LOD A,2,8
 LOC    90
 IND I,4
 LOD A,2,16
 IND I,16
 SBI
 STO I
L7 LAB
L5 LAB
 RET P
L1 DEF        20
 SST B  IS$SI125       2       4       0       0       4
 LOC     0
IS$SI125 ENT B,2,L1  IS_SIMPLE      1 1 1
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,0
 LDC I,0
 EQU I
 AND
 LOC    10
 LOD A,2,8
 IND I,8
 LDC I,0
 EQU I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  FITS$056       2       4       0       0       4
 LOC     0
FITS$056 ENT B,2,L1  FITS_SHRT_OF   1 1 1
 LOD I,2,8
 LDC I,4
 MOD
 LDC I,0
 EQU I
 LDC I,-32
 LOD I,2,8
 LDC I,4
 DVI
 LOC    10
 LEQ I
 AND
 LOD I,2,8
 LDC I,4
 DVI
 LDC I,31
 LEQ I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  FITS$126       2       4       0       4       4
 LOC     0
FITS$126 ENT B,2,L1  FITS_SHORT_I   1 1 1
 LOD A,2,8
 IND I,8
 LDC I,0
 EQU I
 FJP L2
 LDC B,1
 STR B,2,0
 UJP L3
L2 LAB
 LOD A,2,8
 LOC    10
 IND I,12
 LDC I,4
 DVI
 STR I,2,12
 LOD A,2,8
 IND I,4
 LDC I,1
 EQU I
 LOD A,2,8
 IND I,16
 LOC    20
 LDC I,0
 GRT I
 AND
 LOD A,2,8
 IND I,12
 LDC I,4
 MOD
 LDC I,0
 EQU I
 AND
 LOC    30
 LDC I,-32
 LOD I,2,12
 LEQ I
 AND
 LOD I,2,12
 LDC I,31
 LEQ I
 AND
 STR B,2,0
L3 LAB
 RET B
L1 DEF        16
 SST B  IS$CO006       2       4       0       0       4
 LOC     0
IS$CO006 ENT B,2,L1  IS_CONSTANT    1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC    10
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 LOC    20
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    40
 IXA 116
 IND I,4
 LDC I,5
 NEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LOC    50
 LDC I,0
 EQU I
 IOR
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 LOC    60
 LDC I,0
 EQU I
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST B  IS$CO127       2       4       0       0       4
 LOC     0
IS$CO127 ENT B,2,L1  IS_CONST_PLU   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC    10
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,40)
 INN
 NOT
 LOC    20
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,1
 EQU I
 AND
 LOC    30
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 NEQ I
 AND
 LDA 1,35760
 LOC    40
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 LOC    50
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 LOC    60
 IXA 116
 IND I,76
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    70
 IND I,68
 LDC I,0
 NEQ I
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 LOC    80
 EQU I
 AND
 IOR
 AND
 STR B,2,0
 RET B
L1 DEF        12
 SST P  PUSHT128       2       0       0       0       0
 LOC     0
PUSHT128 ENT P,2,L1  PUSHTOP        1 1 1
 LOD I,1,39472
 LDC I,30
 LES I
 FJP L2
 LOD I,1,39472
 LDC I,1
 ADI
 CHK I,-1,30
 STR I,1,39472
 LOC    10
 UJP L3
L2 LAB
 MST 2,4,4
 LDC I,13
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L3 LAB
 RET P
L1 DEF         8
 SST P  POPTO129       2       0       0       0       0
 LOC     0
POPTO129 ENT P,2,L1  POPTOP         1 1 1
 LOD I,1,39472
 LDC I,1
 GEQ I
 FJP L2
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,1,39472
 LOC    10
 UJP L3
L2 LAB
 MST 2,4,4
 LDC I,50
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L3 LAB
 RET P
L1 DEF         8
 SST P  UPD$R130       2       8       0      16       8
 LOC     0
UPD$R130 ENT P,2,L1  UPD_REALTBL    1 1 1
 LDC B,0
 STR B,2,16
 LOD A,2,8
 LDC I,0
 CHK I,-16777216,16777215
 STO I
 LOD A,1,400
 CHK A,-1,0
 STR A,2,20
 LOC    10
 MST 2,8,8
 LDA 2,24
 PAR A
 LOD R,2,12
 PAR R
 CUP P,4,REAL$023
L2 LAB
 LOD B,2,16
 NOT
 LOD A,2,20
 LDC N
 LOC    20
 NEQ A
 AND
 FJP L3
 LOD A,2,20
 CHK A,0,0
 INC A,4
 LDA 2,24
 EQU M,8
 FJP L4
 LDC B,1
 LOC    30
 STR B,2,16
 UJP L5
L4 LAB
 LOD A,2,20
 CHK A,0,0
 IND A,0
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,20
 LOD A,2,8
 LOC    40
 LOD A,2,8
 IND I,0
 LDC I,4
 ADI
 CHK I,-16777216,16777215
 STO I
L5 LAB
 UJP L2
L3 LAB
 LOD B,2,16
 NOT
 FJP L6
 LOC    50
 MST 2,8,8
 LDA 1,392
 PAR A
 LDA 2,24
 PAR A
 CUP P,4,EMIT$102
L6 LAB
 RET P
L1 DEF        32
 SST P  UPD$S131       2      12       0      24      12
 LOC     0
UPD$S131 ENT P,2,L1  UPD_SETTBL     1 1 1
 LDC B,0
 STR B,2,20
 LOD A,2,8
 LDC I,0
 CHK I,-16777216,16777215
 STO I
 LOD A,1,388
 CHK A,-1,0
 STR A,2,24
 LOC    10
 MST 2,16,16
 LDA 2,36
 PAR A
 LDA 2,28
 PAR A
 LOD S,2,12
 PAR S
 CUP P,6,SETRE026
L2 LAB
 LOD B,2,20
 NOT
 LOC    20
 LOD A,2,24
 LDC N
 NEQ A
 AND
 FJP L3
 LOD A,2,24
 CHK A,0,0
 INC A,4
 LDA 2,36
 EQU M,8
 LOC    30
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,0,0
 INC A,4
 LDA 2,28
 EQU M,8
 AND
 FJP L4
 LDC B,1
 LOC    40
 STR B,2,20
 UJP L5
L4 LAB
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 LOD A,2,8
 LOC    50
 LOD A,2,8
 IND I,0
 LDC I,2
 LDC I,4
 MPI
 ADI
 CHK I,-16777216,16777215
 STO I
L5 LAB
 UJP L2
L3 LAB
 LOD B,2,20
 LOC    60
 NOT
 FJP L6
 MST 2,8,8
 LDA 1,380
 PAR A
 LDA 2,36
 PAR A
 CUP P,4,EMIT$102
 MST 2,8,8
 LDA 1,380
 LOC    70
 PAR A
 LDA 2,28
 PAR A
 CUP P,4,EMIT$102
L6 LAB
 RET P
L1 DEF        44
 SST P  UPD$P132       2       8       0       4       8
 LOC     0
UPD$P132 ENT P,2,L1  UPD_PROCTBL    1 1 1
 LOD A,1,496
 LDC N
 EQU A
 FJP L2
 LDA 1,496
 NEW 24
 LOD A,1,496
 CHK A,0,0
 STR A,2,20
 LOC    10
 LOD A,2,20
 LOD A,2,12
 MOV 8
 LOD A,2,20
 INC A,8
 LDA 1,4724
 MOV 12
 LOD A,2,20
 INC A,20
 LDC N
 LOC    20
 CHK A,-1,0
 STO A
 LDC I,1
 STR I,1,492
 LOD A,2,8
 LOD A,1,496
 CHK A,-1,0
 STO A
 UJP L3
L2 LAB
 LOD A,1,496
 LOC    30
 CHK A,-1,0
 STR A,2,16
L4 LAB
 LOD A,2,16
 CHK A,0,0
 IND A,20
 LDC N
 NEQ A
 LOD A,2,16
 CHK A,0,0
 LOD A,2,12
 LOC    40
 NEQ M,8
 AND
 FJP L5
 LOD A,2,16
 CHK A,0,0
 IND A,20
 CHK A,-1,0
 STR A,2,16
 UJP L4
L5 LAB
 LOD A,2,16
 LOC    50
 CHK A,0,0
 LOD A,2,12
 EQU M,8
 FJP L6
 LOD A,2,8
 LOD A,2,16
 CHK A,-1,0
 STO A
 UJP L7
L6 LAB
 LOD A,2,16
 LOC    60
 CHK A,0,0
 INC A,20
 NEW 24
 LOD A,2,16
 CHK A,0,0
 IND A,20
 CHK A,0,0
 STR A,2,20
 LOD A,2,20
 LOD A,2,12
 LOC    70
 MOV 8
 LOD A,2,20
 INC A,8
 LDA 1,4724
 MOV 12
 LOD A,2,20
 INC A,20
 LDC N
 CHK A,-1,0
 STO A
 LOC    80
 LOD I,1,492
 LDC I,1
 ADI
 STR I,1,492
 LOD A,2,8
 LOD A,2,16
 CHK A,0,0
 IND A,20
 CHK A,-1,0
 STO A
L7 LAB
L3 LAB
 LOC    90
 RET P
L1 DEF        24
 SST P  UPD$L049       2      12       0      12      12
 LOC     0
UPD$L049 ENT P,2,L1  UPD_LBLTBL     1 1 1
 MST 2,4,4
 LOD I,2,12
 CHK I,1,99999
 PAR I
 CUP I,2,LABEL027
 CHK I,0,196
 STR I,2,20
 LDA 1,500
 LOD I,2,20
 LOC    10
 CHK J,0,196
 IXA 4
 IND A,0
 CHK A,-1,0
 STR A,2,24
 LDC B,0
 STR B,2,28
L2 LAB
 LOD B,2,28
 NOT
 LOD A,2,24
 LOC    20
 LDC N
 NEQ A
 AND
 FJP L3
 LOD A,2,24
 CHK A,0,0
 IND I,0
 LOD I,2,12
 EQU I
 FJP L4
 LOC    30
 LDC B,1
 STR B,2,28
 UJP L5
L4 LAB
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 STR A,2,24
L5 LAB
 UJP L2
L3 LAB
 LOD B,2,28
 LOC    40
 FJP L6
 LOD A,2,8
 LOD A,2,24
 CHK A,-1,0
 STO A
 UJP L7
L6 LAB
 LDA 2,24
 NEW 32
 LOD A,2,24
 CHK A,0,0
 LOC    50
 INC A,4
 LDA 1,500
 LOD I,2,20
 CHK J,0,196
 IXA 4
 IND A,0
 CHK A,-1,0
 STO A
 LDA 1,500
 LOD I,2,20
 LOC    60
 CHK J,0,196
 IXA 4
 LOD A,2,24
 CHK A,-1,0
 STO A
 LOD A,2,24
 CHK A,0,0
 LOD I,2,12
 CHK I,1,99999
 STO I
 LOC    70
 LOD A,2,24
 CHK A,0,0
 INC A,8
 LDC B,0
 STO B
 LOD I,2,16
 ORD
 CHK I,0,1
 XJP L8
L12 LAB
 LOD A,2,24
 LOC    80
 CHK A,0,0
 INC A,16
 LDA 1,4724
 MOV 12
 UJP L11
L13 LAB
 LOD A,2,24
 CHK A,0,0
 INC A,16
 LDA 1,4736
 MOV 12
 LOC    90
 LOD A,2,24
 CHK A,0,0
 INC A,28
 LDC B,0
 STO B
 UJP L11
L8 DEF         0
L9 DEF         1
L10 LAB
 UJP L12
 UJP L13
L11 LAB
 LOD A,2,8
 LOD A,2,24
 LOC   100
 CHK A,-1,0
 STO A
L7 LAB
 RET P
L1 DEF        32
 SST P  UPD$B133       2      16       0      32      16
 LOC     0
UPD$B133 ENT P,2,L1  UPD_BOUNDTBL   1 1 1
 MST 2,8,8
 LDA 2,48
 PAR A
 LOD I,2,12
 PAR I
 CUP P,4,INTEG025
 MST 2,8,8
 LDA 2,40
 PAR A
 LOC    10
 LOD I,2,16
 PAR I
 CUP P,4,INTEG025
 LDA 2,32
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LDA 2,32
 PAR A
 LDC I,0
 LOC    20
 CHK I,0,35
 PAR I
 LDC I,9
 CHK I,1,36
 PAR I
 LDA 1,30724
 LOD I,2,20
 CHK J,0,15
 IXA 1
 IND C,0
 LOC    30
 ORD
 PAR I
 CUP P,8,PUTFI022
 LOD A,1,364
 CHK A,-1,0
 STR A,2,28
 LOD A,2,8
 LDC I,0
 CHK I,-16777216,16777215
 STO I
 LOC    40
 LDC B,0
 STR B,2,24
L2 LAB
 LOD B,2,24
 NOT
 LOD A,2,28
 LDC N
 NEQ A
 AND
 FJP L3
 LOD A,2,28
 LOC    50
 CHK A,0,0
 INC A,4
 LDA 2,48
 EQU M,8
 LOD A,2,28
 CHK A,0,0
 IND A,0
 CHK A,0,0
 INC A,4
 LDA 2,40
 LOC    60
 EQU M,8
 AND
 LOD A,2,28
 CHK A,0,0
 IND A,0
 CHK A,0,0
 IND A,0
 CHK A,0,0
 INC A,4
 LDA 2,32
 LOC    70
 EQU M,8
 AND
 FJP L4
 LDC B,1
 STR B,2,24
 UJP L5
L4 LAB
 LOD A,2,28
 CHK A,0,0
 IND A,0
 CHK A,0,0
 LOC    80
 IND A,0
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,28
 LOD A,2,8
 LOD A,2,8
 IND I,0
 LDC I,3
 LDC I,4
 LOC    90
 MPI
 ADI
 CHK I,-16777216,16777215
 STO I
L5 LAB
 UJP L2
L3 LAB
 LOD B,2,24
 NOT
 FJP L6
 MST 2,8,8
 LDA 1,356
 LOC   100
 PAR A
 LDA 2,48
 PAR A
 CUP P,4,EMIT$102
 MST 2,8,8
 LDA 1,356
 PAR A
 LDA 2,40
 PAR A
 CUP P,4,EMIT$102
 LOC   110
 MST 2,8,8
 LDA 1,356
 PAR A
 LDA 2,32
 PAR A
 CUP P,4,EMIT$102
L6 LAB
 RET P
L1 DEF        56
 SST P  INSER134       2       8       0       0       8
 LOC     0
INSER134 ENT P,2,L1  INSERT_SHORT   1 1 1
 MST 2,4,4
 LOD A,2,12
 PAR A
 CUP B,2,FITS$126
 LOD A,2,8
 IND I,0
 LDC I,1
 EQU I
 AND
 LOC    10
 NOT
 FJP L2
 MST 2,4,4
 LCA 'INS_SH_VP001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD A,2,12
 IND I,8
 LDC I,0
 EQU I
 LOC    20
 FJP L3
 LOD A,2,12
 IND I,4
 LDC I,1
 EQU I
 FJP L4
 LOD A,2,8
 INC A,4
 LDC I,0
 CHK I,0,31
 LOC    30
 STO I
 LOD A,2,8
 INC A,8
 LOD A,2,12
 IND I,12
 CHK I,-32,31
 STO I
 UJP L5
L4 LAB
 LOD A,2,8
 INC A,4
 LOC    40
 LOD A,2,12
 IND I,12
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LDC I,0
 CHK I,-32,31
 STO I
L5 LAB
 UJP L6
L3 LAB
 LOC    50
 LOD A,2,8
 INC A,4
 LDA 1,35500
 LOD A,2,12
 IND I,16
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 LOC    60
 STO I
 LOD A,2,8
 INC A,8
 LOD A,2,12
 IND I,12
 LDC I,4
 DVI
 CHK I,-32,31
 STO I
L6 LAB
 LOD A,2,8
 LOC    70
 INC A,32
 LOD A,2,12
 IND I,0
 CHK I,0,3
 STO I
 RET P
L1 DEF        16
 SST P  VPA$O135       2       8       0       0       8
 LOC     0
VPA$O135 ENT P,2,L1  VPA_OPERAND_   1 1 1
 LOD A,2,12
 IND I,8
 LDC I,0
 EQU I
 FJP L2
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOD A,2,8
 LOC    10
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,2,12
 IND I,4
 LDC I,1
 EQU I
 FJP L3
 LOD A,2,8
 INC A,4
 LOC    20
 LDC I,0
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LOD A,2,12
 IND I,12
 CHK I,-32,31
 STO I
 UJP L4
L3 LAB
 LOC    30
 LOD A,2,8
 INC A,4
 LOD A,2,12
 IND I,12
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LDC I,0
 CHK I,-32,31
 LOC    40
 STO I
L4 LAB
 UJP L5
L2 LAB
 MST 2,4,4
 LOD A,2,12
 IND I,12
 CHK I,-16777216,16777215
 PAR I
 CUP B,2,FITS$056
 LOD A,2,12
 IND I,16
 LOC    50
 LDC I,0
 GRT I
 AND
 FJP L6
 LOD A,2,12
 IND I,4
 LDC I,2
 EQU I
 FJP L7
 MST 2,8,8
 LOC    60
 LOD A,2,8
 PAR A
 LDC I,0
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 UJP L8
L7 LAB
 LOD A,2,8
 LDA 1,4456
 MOV 56
 LOC    70
 LOD A,2,8
 LDC I,0
 CHK I,0,1
 STO I
L8 LAB
 LOD A,2,8
 INC A,4
 LDA 1,35500
 LOD A,2,12
 IND I,16
 CHK J,1,8
 LOC    80
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 STO I
 LOD A,2,8
 INC A,8
 LOD A,2,12
 IND I,12
 LDC I,4
 LOC    90
 DVI
 CHK I,-32,31
 STO I
 UJP L9
L6 LAB
 LOD A,2,12
 IND I,16
 LDC I,0
 EQU I
 FJP L10
 MST 2,8,8
 LOC   100
 LOD A,2,8
 PAR A
 LOD A,2,12
 IND I,12
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 UJP L11
L10 LAB
 MST 2,12,12
 LOD A,2,8
 LOC   110
 PAR A
 LDA 1,35500
 LOD A,2,12
 IND I,16
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LOC   120
 LOD A,2,12
 IND I,12
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
L11 LAB
 LOD A,2,12
 IND I,4
 LDC I,2
 EQU I
 FJP L12
 LOC   130
 LOD A,2,8
 INC A,16
 LDC I,1
 CHK I,0,1
 STO I
L12 LAB
L9 LAB
L5 LAB
 RET P
L1 DEF        16
 SST P  FIT$I109       2      12       0      48      12
 LOC     0
FIT$I109 ENT P,2,L1  FIT_IN_OPERA   1 1 1
 LOD A,2,8
 LDC B,0
 STO B
 LDA 1,35760
 LOD I,2,16
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,68
 LOC    10
 LOD A,2,68
 IND I,60
 LDC I,1
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FIT_IN_OP001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOC    20
 LOD A,2,68
 IND I,4
 LDC I,3
 EQU I
 FJP L3
 LOD A,2,8
 LDC B,1
 STO B
 UJP L4
L3 LAB
 MST 2,4,4
 LOC    30
 LOD I,2,16
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L5
 LOD A,2,68
 IND I,56
 LDC I,0
 EQU I
 NOT
 LOC    40
 FJP L6
 MST 2,4,4
 LCA 'FIT_IN_OP002'
 PAR A
 CUP P,2,ASSER003
L6 LAB
 LOD A,2,68
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,1888)
 LOC    50
 INN
 FJP L7
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND I,64
 PAR I
 CUP P,4,IMM$O064
 UJP L8
L7 LAB
 LOC    60
 LOD A,2,68
 IND I,4
 LDC I,11
 EQU I
 FJP L9
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND I,64
 LOC    70
 PAR I
 CUP P,4,EXTEN071
 LOD A,2,12
 INC A,8
 LDC I,1
 CHK I,-32,31
 STO I
 UJP L10
L9 LAB
 LOD A,2,68
 IND I,4
 LOC    80
 LDC I,2
 EQU I
 FJP L11
 LOD A,2,68
 IND I,64
 LDC I,0
 LES I
 LOD A,2,68
 IND I,64
 LDC I,1073741823
 LOC    90
 GRT I
 IOR
 FJP L12
 MST 2,4,4
 LDC I,1
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L12 LAB
 MST 2,8,8
 LOD A,2,12
 LOC   100
 PAR A
 LOD A,2,68
 IND I,64
 PAR I
 CUP P,4,IMM$O064
 UJP L13
L11 LAB
 LOD A,2,68
 IND I,4
 LDC I,13
 EQU I
 LOC   110
 FJP L14
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND R,52
 PAR R
 CUP P,4,REAL$065
 UJP L15
L14 LAB
 LOD A,2,68
 LOC   120
 IND I,4
 LDC I,7
 EQU I
 FJP L16
 MST 2,12,12
 LOD A,2,12
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOC   130
 LDC I,0
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,2,12
 INC A,48
 LDC I,2
 CHK I,0,5
 STO I
 MST 2,12,12
 LOC   140
 LOD A,2,12
 INC A,44
 PAR A
 LOD A,2,68
 IND S,44
 PAR S
 CUP P,4,UPD$S131
 UJP L17
L16 LAB
 LOD A,2,68
 IND I,4
 LOC   150
 LDC I,4
 EQU I
 FJP L18
 MST 2,8,8
 LOD A,2,12
 PAR A
 LDC I,-1
 PAR I
 CUP P,4,IMM$O064
 UJP L19
L18 LAB
 LOC   160
 LDC B,0
 NOT
 FJP L20
 MST 2,4,4
 LCA 'FIT_IN_OP003'
 PAR A
 CUP P,2,ASSER003
L20 LAB
L19 LAB
L17 LAB
L15 LAB
L13 LAB
L10 LAB
L8 LAB
 UJP L21
L5 LAB
 LOD A,2,68
 IND I,56
 LOC   170
 LDC I,0
 EQU I
 FJP L22
 LOD A,2,68
 IND I,72
 XJP L23
L27 LAB
 LOD A,2,68
 IND I,64
 LDC I,0
 EQU I
 LOC   180
 FJP L28
 MST 2,8,8
 LOD A,2,12
 PAR A
 LDA 1,35500
 LOD A,2,68
 IND I,68
 CHK J,1,8
 DEC I,1
 IXA 4
 LOC   190
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 UJP L29
L28 LAB
 LOD A,2,8
 LDC B,1
 STO B
L29 LAB
 UJP L26
L30 LAB
 LOD A,2,68
 LOC   200
 IND I,76
 LDC I,0
 EQU I
 LOD A,2,68
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 FJP L31
 MST 2,8,8
 LOC   210
 LOD A,2,12
 PAR A
 LOD A,2,68
 INC A,76
 PAR A
 CUP P,4,VPA$O135
 UJP L32
L31 LAB
 LOD A,2,8
 LDC B,1
 STO B
L32 LAB
 LOC   220
 UJP L26
L33 LAB
 LOD A,2,8
 LDC B,1
 STO B
 UJP L26
L23 DEF         0
L24 DEF         2
L25 LAB
 UJP L27
 UJP L30
 UJP L33
L26 LAB
 UJP L35
L22 LAB
 LOD A,2,68
 LOC   230
 IND I,72
 LDC I,0
 GRT I
 NOT
 FJP L36
 MST 2,4,4
 LCA 'FIT_IN_OP004'
 PAR A
 CUP P,2,ASSER003
L36 LAB
 LOD A,2,68
 LOC   240
 IND I,68
 LDC I,0
 EQU I
 LOD A,2,68
 IND I,72
 LDC I,1
 EQU I
 AND
 MST 2,4,4
 LOD A,2,68
 LOC   250
 INC A,76
 PAR A
 CUP B,2,IS$SI125
 AND
 FJP L37
 LOD A,2,68
 IND I,56
 LDC I,1
 EQU I
 FJP L38
 LOC   260
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,68
 IND I,64
 CHK I,-16777216,16777215
 LOC   270
 PAR I
 CUP P,6,REGDI072
 UJP L39
L38 LAB
 MST 2,4,4
 LOD A,2,68
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP B,2,FITS$056
 FJP L40
 LOC   280
 MST 2,8,8
 LOD A,2,12
 PAR A
 LDC I,0
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,2,12
 INC A,4
 LOD A,2,68
 LOC   290
 IND I,88
 CHK I,0,31
 STO I
 LOD A,2,12
 INC A,8
 LOD A,2,68
 IND I,64
 LDC I,4
 DVI
 CHK I,-32,31
 LOC   300
 STO I
 UJP L41
L40 LAB
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,68
 LOC   310
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,2,12
 INC A,16
 LDC I,1
 CHK I,0,1
 STO I
L41 LAB
L39 LAB
 UJP L42
L37 LAB
 LOC   320
 LOD A,2,68
 IND I,72
 LDC I,1
 EQU I
 FJP L43
 MST 2,4,4
 LOD A,2,68
 INC A,76
 PAR A
 CUP B,2,FITS$126
 LOC   330
 NOT
 FJP L44
 LOD A,2,8
 LDC B,1
 STO B
 UJP L45
L44 LAB
 LOD A,2,68
 IND I,68
 LDC I,0
 GRT I
 LOC   340
 FJP L46
 MST 2,12,12
 LOD A,2,12
 PAR A
 LDA 1,35500
 LOD A,2,68
 IND I,68
 CHK J,1,8
 DEC I,1
 IXA 4
 LOC   350
 IND I,0
 CHK I,0,31
 PAR I
 LOD A,2,68
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 UJP L47
L46 LAB
 MST 2,8,8
 LOC   360
 LOD A,2,12
 PAR A
 LOD A,2,68
 IND I,64
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
L47 LAB
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOC   370
 LOD A,2,68
 INC A,76
 PAR A
 CUP P,4,INSER134
L45 LAB
 UJP L48
L43 LAB
 LOD A,2,68
 IND I,68
 LDC I,0
 GRT I
 FJP L49
 LOC   380
 LOD A,2,8
 LDC B,1
 STO B
 UJP L50
L49 LAB
 MST 2,4,4
 LOD A,2,68
 INC A,96
 PAR A
 CUP B,2,IS$SI125
 MST 2,4,4
 LOC   390
 LOD A,2,68
 INC A,76
 PAR A
 CUP B,2,FITS$126
 AND
 FJP L51
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,68
 LOC   400
 IND I,108
 CHK I,0,31
 PAR I
 LOD A,2,68
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,8,8
 LOD A,2,12
 LOC   410
 PAR A
 LOD A,2,68
 INC A,76
 PAR A
 CUP P,4,INSER134
 UJP L52
L51 LAB
 MST 2,4,4
 LOD A,2,68
 INC A,76
 PAR A
 LOC   420
 CUP B,2,IS$SI125
 MST 2,4,4
 LOD A,2,68
 INC A,96
 PAR A
 CUP B,2,FITS$126
 AND
 FJP L53
 MST 2,12,12
 LOD A,2,12
 LOC   430
 PAR A
 LOD A,2,68
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,68
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOC   440
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,68
 INC A,96
 PAR A
 CUP P,4,INSER134
 UJP L54
L53 LAB
 LOD A,2,8
 LDC B,1
 LOC   450
 STO B
L54 LAB
L52 LAB
L50 LAB
L48 LAB
 LOD A,2,68
 IND I,56
 LDC I,2
 EQU I
 FJP L55
 LOD A,2,12
 INC A,16
 LDC I,1
 CHK I,0,1
 LOC   460
 STO I
L55 LAB
L42 LAB
L35 LAB
L21 LAB
L4 LAB
 RET P
L1 DEF        72
 SST P  FIT$A136       2      12       0       0      12
 LOC     0
FIT$A136 ENT P,2,L1  FIT_ADDRESS_   1 1 1
 LOD A,2,8
 LDC B,0
 STO B
 LDA 1,35760
 LOD I,2,16
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,20
 LOC    10
 LOD A,2,20
 IND I,4
 LDC I,3
 EQU I
 LOD A,2,20
 IND I,56
 LDC I,1
 GRT I
 IOR
 FJP L2
 LOC    20
 LOD A,2,8
 LDC B,1
 STO B
 UJP L3
L2 LAB
 LOD A,2,20
 IND I,72
 XJP L4
L8 LAB
 LOD A,2,20
 IND I,56
 LDC I,0
 LOC    30
 EQU I
 NOT
 FJP L9
 MST 2,4,4
 LCA 'FIT_ADDR 001'
 PAR A
 CUP P,2,ASSER003
L9 LAB
 LOD A,2,20
 IND I,60
 LDC I,0
 LOC    40
 EQU I
 FJP L10
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,64
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC    50
 UJP L11
L10 LAB
 LOD A,2,20
 IND I,68
 LDC I,0
 EQU I
 FJP L12
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 LOC    60
 IND I,64
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 UJP L13
L12 LAB
 MST 2,12,12
 LOD A,2,12
 PAR A
 LDA 1,35500
 LOD A,2,20
 LOC    70
 IND I,68
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LOD A,2,20
 IND I,64
 CHK I,-16777216,16777215
 LOC    80
 PAR I
 CUP P,6,REGDI072
L13 LAB
L11 LAB
 UJP L7
L14 LAB
 LOD A,2,20
 IND I,68
 LDC I,0
 EQU I
 MST 2,4,4
 LOD A,2,20
 INC A,76
 LOC    90
 PAR A
 CUP B,2,IS$SI125
 AND
 FJP L15
 LOD A,2,20
 IND I,56
 LDC I,0
 EQU I
 FJP L16
 MST 2,12,12
 LOC   100
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,20
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 LOC   110
 CUP P,6,REGDI072
 UJP L17
L16 LAB
 MST 2,4,4
 LOD A,2,20
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP B,2,FITS$056
 FJP L18
 MST 2,8,8
 LOC   120
 LOD A,2,12
 PAR A
 LDC I,0
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,2,12
 INC A,4
 LOD A,2,20
 IND I,88
 LOC   130
 CHK I,0,31
 STO I
 LOD A,2,12
 INC A,8
 LOD A,2,20
 IND I,64
 LDC I,4
 DVI
 CHK I,-32,31
 STO I
 LOC   140
 UJP L19
L18 LAB
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,20
 IND I,64
 LOC   150
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,2,12
 INC A,16
 LDC I,1
 CHK I,0,1
 STO I
L19 LAB
L17 LAB
 UJP L20
L15 LAB
 MST 2,4,4
 LOC   160
 LOD A,2,20
 INC A,76
 PAR A
 CUP B,2,FITS$126
 FJP L21
 LOD A,2,20
 IND I,68
 LDC I,0
 EQU I
 FJP L22
 LOC   170
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,64
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 UJP L23
L22 LAB
 MST 2,12,12
 LOC   180
 LOD A,2,12
 PAR A
 LDA 1,35500
 LOD A,2,20
 IND I,68
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 LOC   190
 PAR I
 LOD A,2,20
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
L23 LAB
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 LOC   200
 INC A,76
 PAR A
 CUP P,4,INSER134
 LOD A,2,20
 IND I,56
 LDC I,1
 EQU I
 FJP L24
 LOD A,2,12
 INC A,16
 LOC   210
 LDC I,1
 CHK I,0,1
 STO I
L24 LAB
 UJP L25
L21 LAB
 LOD A,2,20
 IND I,56
 LDC I,0
 EQU I
 LOD A,2,20
 INC A,60
 LOC   220
 LDA 1,4692
 EQU M,12
 AND
 LOD A,2,20
 IND I,76
 LDC I,0
 EQU I
 AND
 LOD A,2,20
 IND I,80
 LOC   230
 LDC I,1
 EQU I
 AND
 FJP L26
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 INC A,76
 PAR A
 LOC   240
 CUP P,4,VPA$O135
 LOD A,2,12
 IND I,0
 LDC I,1
 EQU I
 NOT
 FJP L27
 MST 2,4,4
 LCA 'FIT_ADDR 002'
 PAR A
 LOC   250
 CUP P,2,ASSER003
L27 LAB
 LOD A,2,12
 INC A,16
 LDC I,1
 CHK I,0,1
 STO I
 UJP L28
L26 LAB
 LOD A,2,8
 LDC B,1
 STO B
L28 LAB
L25 LAB
L20 LAB
 LOC   260
 UJP L7
L29 LAB
 LOD A,2,20
 IND I,68
 LDC I,0
 GRT I
 FJP L30
 LOD A,2,8
 LDC B,1
 STO B
 UJP L31
L30 LAB
 LOC   270
 MST 2,4,4
 LOD A,2,20
 INC A,76
 PAR A
 CUP B,2,IS$SI125
 MST 2,4,4
 LOD A,2,20
 INC A,96
 PAR A
 CUP B,2,FITS$126
 LOC   280
 AND
 FJP L32
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,2,20
 LOC   290
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 INC A,96
 PAR A
 LOC   300
 CUP P,4,INSER134
 LOD A,2,20
 IND I,56
 LDC I,1
 EQU I
 FJP L33
 LOD A,2,12
 INC A,16
 LDC I,1
 CHK I,0,1
 LOC   310
 STO I
L33 LAB
 UJP L34
L32 LAB
 MST 2,4,4
 LOD A,2,20
 INC A,96
 PAR A
 CUP B,2,IS$SI125
 MST 2,4,4
 LOD A,2,20
 INC A,76
 LOC   320
 PAR A
 CUP B,2,FITS$126
 AND
 FJP L35
 MST 2,12,12
 LOD A,2,12
 PAR A
 LOD A,2,20
 IND I,108
 CHK I,0,31
 LOC   330
 PAR I
 LOD A,2,20
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,8,8
 LOD A,2,12
 PAR A
 LOD A,2,20
 LOC   340
 INC A,76
 PAR A
 CUP P,4,INSER134
 LOD A,2,20
 IND I,56
 LDC I,1
 EQU I
 FJP L36
 LOD A,2,12
 INC A,16
 LOC   350
 LDC I,1
 CHK I,0,1
 STO I
L36 LAB
 UJP L37
L35 LAB
 LOD A,2,8
 LDC B,1
 STO B
L37 LAB
L34 LAB
L31 LAB
 UJP L7
L4 DEF         0
L5 DEF         2
L6 LAB
 UJP L8
 UJP L14
 LOC   360
 UJP L29
L7 LAB
L3 LAB
 RET P
L1 DEF        24
 SST P  GET$O108       2       8       0      52       8
 LOC     0
GET$O108 ENT P,2,L1  GET_OPERAND    1 1 1
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,5
 EQU I
 FJP L2
 LOC    10
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LDC I,1
 EQU I
 FJP L3
 MST 2,4,4
 LOC    20
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,2,BJUMP120
L3 LAB
L2 LAB
 MST 2,12,12
 LDA 2,64
 PAR A
 LOD A,2,8
 PAR A
 LOD I,2,12
 LOC    30
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
L4 LAB
 LOD B,2,64
 FJP L5
 MST 2,4,4
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 LOC    40
 MST 2,12,12
 LDA 2,64
 PAR A
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 UJP L4
L5 LAB
 LOC    50
 RET P
L1 DEF        68
 SST P  GET$S137       2       8       0      56       8
 LOC     0
GET$S137 ENT P,2,L1  GET_SHORT_OP   1 1 1
 MST 2,8,8
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOD A,2,8
 IND I,0
 LOC    10
 LDC I,1
 EQU I
 FJP L2
 MST 2,4,4
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LDA 1,30932
 LDA 1,35760
 LOC    20
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L3
 MST 2,0,0
 LOC    30
 CUP P,0,FINDR083
 UJP L4
L3 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L4 LAB
 MST 2,8,8
 LDA 2,16
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 LOC    40
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 1,31060
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 LOC    50
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,16
 PAR A
 LOD A,2,8
 PAR A
 CUP P,6,EMITX077
 MST 2,16,16
 LOC    60
 LOD I,2,12
 CHK I,-1,30
 PAR I
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 LOC    70
 PAR A
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 PAR I
 LOD I,1,35476
 LOC    80
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOD A,2,8
 LDA 2,16
 MOV 56
L2 LAB
 RET P
L1 DEF        72
 SST P  GET$A138       2       8       0       4       8
 LOC     0
GET$A138 ENT P,2,L1  GET_ADDRESS    1 1 1
 MST 2,12,12
 LDA 2,16
 PAR A
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$A136
L2 LAB
 LOC    10
 LOD B,2,16
 FJP L3
 MST 2,4,4
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 MST 2,12,12
 LDA 2,16
 PAR A
 LOC    20
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$A136
 UJP L2
L3 LAB
 RET P
L1 DEF        20
 SST P  MOVE$110       2       8       0     108       8
 LOC     0
MOVE$110 ENT P,2,L1  MOVE_QUANTIT   1 1 1
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,124
 LOD A,2,124
 IND I,4
 LDC I,2
 LOC    10
 EQU I
 LOD A,2,124
 IND I,56
 LDC I,0
 EQU I
 AND
 FJP L2
 MST 2,12,12
 LDA 2,120
 PAR A
 LOC    20
 LDA 2,64
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,120
 FJP L3
 MST 2,8,8
 LDA 2,64
 LOC    30
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDC I,66
 CHK I,0,285
 PAR I
 LOD A,2,8
 LOC    40
 PAR A
 LDA 2,64
 PAR A
 CUP P,6,EMITX077
 UJP L4
L3 LAB
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LOD A,2,8
 LOC    50
 PAR A
 LDA 2,64
 PAR A
 CUP P,6,EMITX077
L4 LAB
 UJP L5
L2 LAB
 MST 2,8,8
 LDA 2,64
 PAR A
 LOD I,2,12
 CHK I,-1,30
 LOC    60
 PAR I
 CUP P,4,GET$O108
 LOD A,2,8
 LDA 2,64
 NEQ M,56
 FJP L6
 MST 2,12,12
 LDA 1,31060
 LOD A,2,124
 IND I,4
 LOC    70
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LOD A,2,8
 PAR A
 LDA 2,64
 PAR A
 CUP P,6,EMITX077
L6 LAB
L5 LAB
 LOC    80
 RET P
L1 DEF       128
 SST P  SLR$Q139       2      12      56      60      12
 LOC     0
SLR$Q139 ENT P,2,L1  SLR_QUANTITY   1 1 1
 LDA 2,20
 LOD A,2,8
 MOV 56
 LDA 1,35760
 LOD I,2,16
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,136
 LOC    10
 LOD A,2,136
 IND I,4
 LDC I,2
 EQU I
 LOD A,2,136
 IND I,56
 LDC I,0
 EQU I
 AND
 FJP L2
 LOC    20
 MST 2,12,12
 LDA 2,132
 PAR A
 LDA 2,76
 PAR A
 LOD I,2,16
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,132
 LOC    30
 FJP L3
 MST 2,8,8
 LDA 2,76
 PAR A
 LOD I,2,16
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDA 1,31764
 LOC    40
 LOD I,2,12
 CHK J,0,31
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,20
 PAR A
 LDA 2,76
 PAR A
 LOC    50
 CUP P,6,EMITX077
 UJP L4
L3 LAB
 MST 2,12,12
 LDA 1,31636
 LOD I,2,12
 CHK J,0,31
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LOC    60
 LDA 2,20
 PAR A
 LDA 2,76
 PAR A
 CUP P,6,EMITX077
L4 LAB
 UJP L5
L2 LAB
 MST 2,8,8
 LDA 2,76
 PAR A
 LOD I,2,16
 LOC    70
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,12,12
 LDA 1,31636
 LOD I,2,12
 CHK J,0,31
 IXA 4
 IND I,0
 CHK I,0,285
 LOC    80
 PAR I
 LDA 2,20
 PAR A
 LDA 2,76
 PAR A
 CUP P,6,EMITX077
L5 LAB
 RET P
L1 DEF       140
 SST P  COERC140       2      12       0      64      12
 LOC     0
COERC140 ENT P,2,L1  COERCE_AND_M   1 1 1
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,84
 LOD A,2,84
 IND I,4
 LDC I,2
 LOC    10
 EQU I
 LOD I,2,16
 LDC I,2
 EQU I
 AND
 LOD A,2,84
 IND I,56
 LDC I,0
 EQU I
 AND
 LOC    20
 FJP L2
 MST 2,12,12
 LDA 2,80
 PAR A
 LDA 2,20
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOC    30
 LOD B,2,80
 FJP L3
 MST 2,8,8
 LDA 2,20
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LOC    40
 LDC I,66
 CHK I,0,285
 PAR I
 LOD A,2,8
 PAR A
 LDA 2,20
 PAR A
 CUP P,6,EMITX077
 UJP L4
L3 LAB
 MST 2,12,12
 LOC    50
 LDC I,75
 CHK I,0,285
 PAR I
 LOD A,2,8
 PAR A
 LDA 2,20
 PAR A
 CUP P,6,EMITX077
L4 LAB
 UJP L5
L2 LAB
 MST 2,8,8
 LOC    60
 LDA 2,20
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LOD A,2,8
 PAR A
 LDA 2,20
 LOC    70
 PAR A
 CUP B,4,EQUAL062
 NOT
 LOD A,2,84
 IND I,4
 LOD I,2,16
 NEQ I
 IOR
 FJP L6
 LDA 1,32084
 LOC    80
 LOD I,2,16
 CHK J,0,15
 IXA 64
 LOD A,2,84
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,76
 LOC    90
 LOD I,2,76
 LDC I,0
 EQU I
 FJP L7
 MST 2,4,4
 LDC I,9
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L7 LAB
 MST 2,12,12
 LOC   100
 LOD I,2,76
 CHK I,0,285
 PAR I
 LOD A,2,8
 PAR A
 LDA 2,20
 PAR A
 CUP P,6,EMITX077
L6 LAB
L5 LAB
 RET P
L1 DEF        88
 SST P  STORE141       2       8       0      60       8
 LOC     0
STORE141 ENT P,2,L1  STORE          1 1 1
 LDA 1,32084
 LOD I,1,52
 CHK J,0,15
 IXA 64
 LDA 1,35760
 LOD I,2,12
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    10
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,72
 LOD I,2,72
 LDC I,0
 EQU I
 FJP L2
 LOC    20
 MST 2,4,4
 LDC I,19
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L2 LAB
 MST 2,8,8
 LDA 2,16
 PAR A
 LOD I,2,8
 CHK I,-1,30
 LOC    30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDA 2,16
 PAR A
 LOD I,2,12
 CHK I,-1,30
 PAR I
 LOD I,1,52
 CHK I,0,15
 LOC    40
 PAR I
 CUP P,6,COERC140
 RET P
L1 DEF        76
 SST P  ADD$S112       2      20       0      48      20
 SST P  INC$O142       3       8       0      60       8
 LOC     0
INC$O142 ENT P,3,L1  INC_OR_DEC     1 1 1
 LOD I,3,8
 LDC I,1
 EQU I
 FJP L2
 LDC I,62
 CHK I,0,285
 STR I,3,72
 UJP L3
L2 LAB
 LDC I,40
 LOC    10
 CHK I,0,285
 STR I,3,72
L3 LAB
 MST 2,4,4
 LOD A,3,12
 PAR A
 CUP B,2,IS$T$058
 FJP L4
 LOD A,2,8
 LOD A,3,12
 IND I,4
 LOC    20
 CHK I,0,31
 STO I
 UJP L5
L4 LAB
 MST 2,0,0
 CUP P,0,FINDR084
 LOD A,2,8
 LOD I,1,35476
 CHK I,0,31
 STO I
L5 LAB
 MST 2,8,8
 LOC    30
 LDA 3,16
 PAR A
 LOD A,2,8
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOD I,3,72
 CHK I,0,285
 LOC    40
 PAR I
 LDA 3,16
 PAR A
 LOD A,3,12
 PAR A
 CUP P,6,EMITX077
 RET P
L1 DEF        76
 LOC     0
ADD$S112 ENT P,2,L1  ADD_SUB_SING   1 1 1
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,ISSHO060
 LOD A,2,16
 IND I,8
 LDC I,1
 EQU I
 LOD A,2,16
 LOC    10
 IND I,8
 LDC I,1
 NGI
 EQU I
 IOR
 AND
 FJP L2
 LOD I,2,12
 LDC I,8
 EQU I
 LOC    20
 FJP L3
 MST 3,8,8
 LOD A,2,16
 IND I,8
 PAR I
 LOD A,2,20
 PAR A
 CUP P,4,INC$O142
 UJP L4
L3 LAB
 MST 3,8,8
 LOC    30
 LOD A,2,16
 IND I,8
 NGI
 PAR I
 LOD A,2,20
 PAR A
 CUP P,4,INC$O142
L4 LAB
 UJP L5
L2 LAB
 MST 2,4,4
 LOD A,2,20
 LOC    40
 PAR A
 CUP B,2,ISSHO060
 LOD A,2,20
 IND I,8
 LDC I,1
 EQU I
 LOD A,2,20
 IND I,8
 LDC I,1
 NGI
 LOC    50
 EQU I
 IOR
 AND
 FJP L6
 LOD I,2,12
 LDC I,8
 EQU I
 FJP L7
 MST 3,8,8
 LOD A,2,20
 LOC    60
 IND I,8
 PAR I
 LOD A,2,16
 PAR A
 CUP P,4,INC$O142
 UJP L8
L7 LAB
 MST 3,8,8
 LOD A,2,20
 IND I,8
 NGI
 LOC    70
 PAR I
 LOD A,2,16
 PAR A
 CUP P,4,INC$O142
L8 LAB
 UJP L9
L6 LAB
 MST 2,32,32
 LOD A,2,8
 PAR A
 LOD I,2,12
 CHK I,0,285
 LOC    80
 PAR I
 LOD A,2,16
 PAR A
 LOD A,2,20
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 LOC    90
 PAR B
 LOD I,2,24
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
L9 LAB
L5 LAB
 RET P
L1 DEF        76
 SST P  ADD$T143       2       0       0     136       0
 LOC     0
ADD$T143 ENT P,2,L1  ADD_TOP_TWO_   1 1 1
 LDC B,0
 STR B,2,11
 LDC B,0
 STR B,2,10
L2 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    10
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 LOC    20
 EQU M,12
 AND
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 LOC    30
 AND
 FJP L3
 LDC B,1
 STR B,2,11
 UJP L4
L3 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC    40
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC    50
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC    60
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 FJP L5
 LDC B,1
 STR B,2,11
 LOC    70
 UJP L6
L5 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC    80
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 AND
 LOC    90
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 LOC   100
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   110
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   120
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 NEQ I
 AND
 IOR
 AND
 LOC   130
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   140
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 ADI
 LDC I,2
 LEQ I
 AND
 FJP L7
 LDC B,1
 LOC   150
 STR B,2,11
 UJP L8
L7 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LOC   160
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LOC   170
 AND
 FJP L9
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 LOC   180
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 ADI
 STR I,2,12
 LDA 1,35760
 LOD I,1,39472
 LOC   190
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDC I,0
 STO I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   200
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDC I,0
 STO I
 UJP L10
L9 LAB
 LDC I,0
 STR I,2,12
L10 LAB
 MST 2,12,12
 LOC   210
 LDA 2,9
 PAR A
 LDA 2,72
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOC   220
 MST 2,12,12
 LDA 2,8
 PAR A
 LDA 2,16
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,9
 LOC   230
 NOT
 LOD B,2,8
 NOT
 AND
 FJP L11
 LDC B,1
 STR B,2,10
 UJP L12
L11 LAB
 LOD B,2,9
 NOT
 LOC   240
 FJP L13
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,132
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,128
 UJP L14
L13 LAB
 LOC   250
 LOD B,2,8
 NOT
 FJP L15
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,132
 LOD I,1,39472
 CHK I,-1,30
 LOC   260
 STR I,2,128
 UJP L16
L15 LAB
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,132
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,128
L16 LAB
L14 LAB
 LOC   270
 LOD I,2,12
 LDC I,0
 NEQ I
 FJP L17
 LDA 1,35760
 LOD I,2,132
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LOC   280
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,2,132
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 EQU I
 LOC   290
 AND
 NOT
 FJP L18
 MST 2,4,4
 LCA 'ADD_TOP_T001'
 PAR A
 CUP P,2,ASSER003
L18 LAB
 LDA 1,35760
 LOD I,2,132
 CHK J,-1,30
 LOC   300
 INC I,1
 IXA 116
 INC A,64
 LOD I,2,12
 STO I
L17 LAB
 MST 2,4,4
 LOD I,2,132
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
L12 LAB
L8 LAB
L6 LAB
L4 LAB
 LOC   310
 LOD B,2,11
 LOD B,2,10
 IOR
 FJP L2
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   320
 IXA 116
 IND I,4
 LDC I,3
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LOC   330
 LDC I,3
 EQU I
 IOR
 FJP L19
 LDC I,3
 CHK I,0,15
 STR I,2,140
 UJP L20
L19 LAB
 LDA 1,35760
 LOD I,1,39472
 LOC   340
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 EQU I
 LDA 1,35760
 LOD I,1,39472
 LOC   350
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 EQU I
 IOR
 FJP L21
 LDC I,2
 CHK I,0,15
 LOC   360
 STR I,2,140
 UJP L22
L21 LAB
 LDC I,10
 CHK I,0,15
 STR I,2,140
L22 LAB
L20 LAB
 LOD B,2,10
 FJP L23
 MST 2,20,20
 LDA 2,136
 PAR A
 LOC   370
 LDC I,8
 CHK I,0,285
 PAR I
 LDA 2,72
 PAR A
 LDA 2,16
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   380
 CHK I,-1,30
 PAR I
 CUP P,10,ADD$S112
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,136
 CHK I,0,31
 PAR I
 LOC   390
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,136
 CHK I,0,31
 PAR I
 LOC   400
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   410
 IND A,0
 CHK A,-1,0
 PAR A
 LOD I,2,140
 CHK I,0,15
 PAR I
 LOD I,2,136
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOC   420
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,4
 LOD I,2,140
 CHK I,0,15
 STO I
 UJP L24
L23 LAB
 LOC   430
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LOC   440
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 LOC   450
 AND
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,3
 LOC   460
 NEQ I
 AND
 FJP L25
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   470
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 MOV 116
 UJP L26
L25 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   480
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   490
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LOC   500
 LDC I,3
 NEQ I
 AND
 FJP L27
 UJP L28
L27 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   510
 IND I,68
 LDC I,0
 NEQ I
 FJP L29
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   520
 IXA 116
 INC A,68
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 CHK I,0,8
 STO I
L29 LAB
 LOC   530
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LOC   540
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   550
 IXA 116
 IND I,64
 ADI
 STO I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   560
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 FJP L30
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   570
 IND I,72
 LDC I,0
 GRT I
 FJP L31
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   580
 IXA 116
 INC A,76
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 MOV 20
L31 LAB
 LDA 1,35760
 LOC   590
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,2
 EQU I
 FJP L32
 LDA 1,35760
 LOD I,1,39472
 LOC   600
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,96
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   610
 IXA 116
 INC A,96
 MOV 20
L32 LAB
 UJP L33
L30 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   620
 IXA 116
 IND I,72
 LDC I,1
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LOC   630
 LDC I,1
 EQU I
 AND
 FJP L34
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   640
 IXA 116
 INC A,96
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 MOV 20
L34 LAB
L33 LAB
 LDA 1,35760
 LOC   650
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,72
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   660
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   670
 IND I,72
 ADI
 CHK I,0,2
 STO I
L28 LAB
L26 LAB
 LOD I,1,35492
 LOD I,1,39472
 EQU I
 FJP L35
 LOD I,1,39472
 LDC I,1
 LOC   680
 SBI
 CHK I,-1,30
 STR I,1,35492
L35 LAB
 MST 2,0,0
 CUP P,0,POPTO129
L24 LAB
 RET P
L1 DEF       144
 SST P  MULT$144       2      16       0      60      16
 LOC     0
MULT$144 ENT P,2,L1  MULT_SINGLE    1 1 1
 MST 2,4,4
 LOD A,2,12
 PAR A
 CUP B,2,ISSHO060
 FJP L2
 MST 2,4,4
 LOD A,2,12
 IND I,8
 PAR I
 LOC    10
 CUP I,2,POWER031
 STR I,2,24
 LOD I,2,24
 LDC I,0
 GEQ I
 FJP L3
 MST 2,8,8
 LDA 2,28
 PAR A
 LOD I,2,24
 LOC    20
 PAR I
 CUP P,4,IMM$O064
 MST 2,32,32
 LOD A,2,8
 PAR A
 LDC I,167
 CHK I,0,285
 PAR I
 LOD A,2,16
 PAR A
 LOC    30
 LDA 2,28
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,2,20
 CHK I,-1,30
 LOC    40
 PAR I
 CUP P,16,ALLOC107
 UJP L4
L3 LAB
 MST 2,32,32
 LOD A,2,8
 PAR A
 LDC I,147
 CHK I,0,285
 PAR I
 LOD A,2,12
 LOC    50
 PAR A
 LOD A,2,16
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,2,20
 LOC    60
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
L4 LAB
 UJP L5
L2 LAB
 MST 2,4,4
 LOD A,2,16
 PAR A
 CUP B,2,ISSHO060
 FJP L6
 MST 2,4,4
 LOC    70
 LOD A,2,16
 IND I,8
 PAR I
 CUP I,2,POWER031
 STR I,2,24
 LOD I,2,24
 LDC I,0
 GEQ I
 FJP L7
 MST 2,8,8
 LOC    80
 LDA 2,28
 PAR A
 LOD I,2,24
 PAR I
 CUP P,4,IMM$O064
 MST 2,32,32
 LOD A,2,8
 PAR A
 LDC I,167
 CHK I,0,285
 LOC    90
 PAR I
 LOD A,2,12
 PAR A
 LDA 2,28
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 LOC   100
 PAR B
 LOD I,2,20
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 UJP L8
L7 LAB
 MST 2,32,32
 LOD A,2,8
 PAR A
 LDC I,147
 LOC   110
 CHK I,0,285
 PAR I
 LOD A,2,12
 PAR A
 LOD A,2,16
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOC   120
 LDC B,0
 PAR B
 LOD I,2,20
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
L8 LAB
 UJP L9
L6 LAB
 MST 2,32,32
 LOD A,2,8
 PAR A
 LOC   130
 LDC I,147
 CHK I,0,285
 PAR I
 LOD A,2,12
 PAR A
 LOD A,2,16
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 LOC   140
 PAR B
 LDC B,0
 PAR B
 LOD I,2,20
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
L9 LAB
L5 LAB
 RET P
L1 DEF        84
 SST P  SIMPL111       2       4       0      60       4
 SST P  ADD$V145       3       0       0     116       0
 LOC     0
ADD$V145 ENT P,3,L1  ADD_VPAS       1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,124
 LOD A,3,124
 IND I,76
 LDC I,0
 LOC    10
 EQU I
 LOD A,3,124
 IND I,96
 LDC I,0
 EQU I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'ADD_VPAS 001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD A,3,124
 IND I,56
 LDC I,0
 GRT I
 LOD A,3,124
 IND I,4
 ORD
 CHK S,0,63
 LOC    30
 LDC S,(0,0,0,1036)
 INN
 IOR
 NOT
 FJP L3
 MST 2,4,4
 LCA 'ADD_VPAS 002'
 PAR A
 CUP P,2,ASSER003
L3 LAB
 MST 2,8,8
 LOC    40
 LDA 3,64
 PAR A
 LOD A,3,124
 INC A,76
 PAR A
 CUP P,4,VPA$O135
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,3,124
 LOC    50
 INC A,96
 PAR A
 CUP P,4,VPA$O135
 MST 2,32,32
 LDA 3,120
 PAR A
 LDC I,8
 CHK I,0,285
 PAR I
 LDA 3,64
 LOC    60
 PAR A
 LDA 3,8
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,2,8
 LOC    70
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD A,3,124
 INC A,76
 PAR A
 LOD I,3,120
 CHK I,0,31
 PAR I
 LOC    80
 CUP P,4,FREEV094
 MST 2,8,8
 LOD A,3,124
 INC A,96
 PAR A
 LOD I,3,120
 CHK I,0,31
 PAR I
 CUP P,4,FREEV094
 LOD A,3,124
 LOC    90
 INC A,76
 LDA 1,4704
 MOV 20
 LOD A,3,124
 INC A,96
 LDA 1,4704
 MOV 20
 LOD A,3,124
 INC A,72
 LDC I,1
 LOC   100
 CHK I,0,2
 STO I
 LOD A,3,124
 INC A,84
 LDC I,0
 STO I
 LOD A,3,124
 INC A,88
 LOD I,3,120
 CHK I,0,31
 LOC   110
 STO I
 RET P
L1 DEF       128
 SST P  FPA$L146       3       4       0      60       4
 LOC     0
FPA$L146 ENT P,3,L1  FPA_LVL_PLUS   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,72
 LOD A,3,72
 IND I,68
 LDC I,0
 LOC    10
 GRT I
 LOD A,3,72
 IND I,4
 LDC I,2
 EQU I
 LOD A,3,72
 IND I,56
 LDC I,0
 GRT I
 IOR
 LOC    20
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FPLVL_VPA001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 3,12
 PAR A
 LOC    30
 LDA 1,35500
 LOD A,3,72
 IND I,68
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC    40
 MST 2,32,32
 LDA 3,68
 PAR A
 LDC I,8
 CHK I,0,285
 PAR I
 LOD A,3,8
 PAR A
 LDA 3,12
 PAR A
 LOC    50
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 LOC    60
 MST 2,8,8
 LOD A,3,72
 INC A,76
 PAR A
 LOD I,3,68
 CHK I,0,31
 PAR I
 CUP P,4,FREEV094
 LOD A,3,72
 INC A,76
 LOC    70
 LDA 1,4704
 MOV 20
 LOD A,3,72
 INC A,68
 LDC I,0
 CHK I,0,8
 STO I
 LOD A,3,72
 INC A,84
 LDC I,0
 LOC    80
 STO I
 LOD A,3,72
 INC A,88
 LOD I,3,68
 CHK I,0,31
 STO I
 RET P
L1 DEF        76
 SST P  FPA$D147       3       4       0      60       4
 LOC     0
FPA$D147 ENT P,3,L1  FPA_DSPLMT_P   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,72
 LOD A,3,72
 IND I,56
 LDC I,0
 LOC    10
 EQU I
 LOD A,3,72
 IND I,4
 LDC I,10
 EQU I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'FDSP_VPA 001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 3,12
 PAR A
 LOD A,3,72
 IND I,64
 PAR I
 CUP P,4,IMM$O064
 MST 2,20,20
 LOC    30
 LDA 3,68
 PAR A
 LDC I,8
 CHK I,0,285
 PAR I
 LOD A,3,8
 PAR A
 LDA 3,12
 PAR A
 LOD I,2,8
 LOC    40
 CHK I,-1,30
 PAR I
 CUP P,10,ADD$S112
 MST 2,8,8
 LOD A,3,72
 INC A,76
 PAR A
 LOD I,3,68
 CHK I,0,31
 PAR I
 LOC    50
 CUP P,4,FREEV094
 LOD A,3,72
 INC A,64
 LDC I,0
 STO I
 LOD A,3,72
 INC A,76
 LDA 1,4704
 MOV 20
 LOD A,3,72
 LOC    60
 INC A,84
 LDC I,0
 STO I
 LOD A,3,72
 INC A,88
 LOD I,3,68
 CHK I,0,31
 STO I
 RET P
L1 DEF        76
 SST P  VPA$F148       3       0       0     116       0
 LOC     0
VPA$F148 ENT P,3,L1  VPA_FPA_FINA   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,124
 MST 2,4,4
 LOD A,3,124
 INC A,76
 LOC    10
 PAR A
 CUP B,2,IS$SI125
 LOD A,3,124
 IND I,4
 LDC I,3
 NEQ I
 AND
 LOD A,3,124
 IND I,68
 LDC I,0
 LOC    20
 EQU I
 AND
 MST 2,4,4
 LOD A,3,124
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP B,2,FITS$056
 AND
 FJP L2
 LOC    30
 LOD A,3,124
 IND I,56
 LDC I,2
 EQU I
 FJP L3
 MST 2,8,8
 LDA 3,8
 PAR A
 LDC I,0
 CHK I,0,1073741823
 LOC    40
 PAR I
 CUP P,4,ADDR$075
 LOD A,3,124
 IND I,88
 CHK I,0,31
 STR I,3,12
 LOD A,3,124
 IND I,64
 LDC I,4
 DVI
 LOC    50
 CHK I,-32,31
 STR I,3,16
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LDA 1,31060
 LOD A,3,124
 IND I,4
 LOC    60
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,3,120
 LDA 1,30932
 LOD A,3,124
 IND I,4
 CHK J,0,15
 IXA 1
 LOC    70
 IND B,0
 FJP L4
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L5
L4 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L5 LAB
 UJP L6
L3 LAB
 MST 2,12,12
 LDA 3,8
 LOC    80
 PAR A
 LOD A,3,124
 IND I,88
 CHK I,0,31
 PAR I
 LOD A,3,124
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LOC    90
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LOD A,3,124
 IND I,56
 LDC I,0
 EQU I
 FJP L7
 LOC   100
 LDC I,66
 CHK I,0,285
 STR I,3,120
 MST 2,0,0
 CUP P,0,FINDR084
 UJP L8
L7 LAB
 LDA 1,31060
 LOD A,3,124
 IND I,4
 CHK J,0,15
 LOC   110
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,3,120
 LDA 1,30932
 LOD A,3,124
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOC   120
 FJP L9
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L10
L9 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L10 LAB
L8 LAB
L6 LAB
 MST 2,16,16
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC   130
 LOD A,3,124
 IND A,0
 CHK A,-1,0
 PAR A
 LOD A,3,124
 IND I,4
 CHK I,0,15
 PAR I
 LOD I,1,35476
 CHK I,0,31
 LOC   140
 PAR I
 CUP P,8,REG$D113
 MST 2,8,8
 LDA 3,64
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOC   150
 LOD I,3,120
 CHK I,0,285
 PAR I
 LDA 3,64
 PAR A
 LDA 3,8
 PAR A
 CUP P,6,EMITX077
 UJP L11
L2 LAB
 LOD A,3,124
 LOC   160
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 LOD A,3,124
 IND I,56
 LDC I,0
 GRT I
 IOR
 LOC   170
 LOD A,3,124
 IND I,72
 LDC I,1
 EQU I
 AND
 MST 2,4,4
 LOD A,3,124
 INC A,76
 PAR A
 CUP B,2,FITS$126
 LOC   180
 AND
 NOT
 FJP L12
 MST 2,4,4
 LCA 'VP_FP_FIN001'
 PAR A
 CUP P,2,ASSER003
L12 LAB
 LOD A,3,124
 IND I,68
 LDC I,0
 LOC   190
 GRT I
 FJP L13
 MST 2,12,12
 LDA 3,8
 PAR A
 LDA 1,35500
 LOD A,3,124
 IND I,68
 CHK J,1,8
 DEC I,1
 LOC   200
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LOD A,3,124
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 UJP L14
L13 LAB
 LOC   210
 LOD A,3,124
 IND I,4
 LDC I,3
 NEQ I
 FJP L15
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,3,124
 IND I,64
 LOC   220
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 UJP L16
L15 LAB
 MST 2,12,12
 LDA 3,8
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOC   230
 LOD A,3,124
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LDC I,1
 CHK I,0,5
 STR I,3,56
 LOD A,3,124
 INC A,4
 LOC   240
 LDC I,2
 CHK I,0,15
 STO I
L16 LAB
L14 LAB
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,3,124
 INC A,76
 PAR A
 CUP P,4,INSER134
 LOC   250
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LOD A,3,124
 IND I,56
 LDC I,0
 EQU I
 FJP L17
 LOC   260
 LDC I,66
 CHK I,0,285
 STR I,3,120
 MST 2,0,0
 CUP P,0,FINDR084
 UJP L18
L17 LAB
 LDA 1,31060
 LOD A,3,124
 IND I,4
 CHK J,0,15
 LOC   270
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,3,120
 LDA 1,30932
 LOD A,3,124
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOC   280
 FJP L19
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L20
L19 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L20 LAB
 LOD A,3,124
 IND I,56
 LDC I,2
 EQU I
 LOC   290
 FJP L21
 LDC I,1
 CHK I,0,1
 STR I,3,24
L21 LAB
L18 LAB
 MST 2,16,16
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOD A,3,124
 IND A,0
 LOC   300
 CHK A,-1,0
 PAR A
 LOD A,3,124
 IND I,4
 CHK I,0,15
 PAR I
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOC   310
 MST 2,8,8
 LDA 3,64
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOD I,3,120
 CHK I,0,285
 LOC   320
 PAR I
 LDA 3,64
 PAR A
 LDA 3,8
 PAR A
 CUP P,6,EMITX077
L11 LAB
 RET P
L1 DEF       128
 SST P  SHORT149       3       8       0     116       8
 LOC     0
SHORT149 ENT P,3,L1  SHORT_AND_RE   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,132
 LOD A,3,132
 IND I,4
 ORD
 LOC    10
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 LOD A,3,132
 IND I,56
 LDC I,0
 GRT I
 IOR
 NOT
 FJP L2
 LOC    20
 MST 2,4,4
 LCA 'SHORT®001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,12,12
 LDA 3,16
 PAR A
 LOD A,3,12
 IND I,12
 CHK I,0,31
 LOC    30
 PAR I
 LOD A,3,132
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,8,8
 LDA 3,16
 PAR A
 LOD A,3,8
 LOC    40
 PAR A
 CUP P,4,INSER134
 LOD A,3,132
 INC A,64
 LDC I,0
 STO I
 MST 2,4,4
 LOD A,3,132
 INC A,76
 PAR A
 LOC    50
 CUP P,2,FREEV093
 MST 2,4,4
 LOD A,3,132
 INC A,96
 PAR A
 CUP P,2,FREEV093
 LOD A,3,132
 INC A,76
 LDA 1,4704
 MOV 20
 LOC    60
 LOD A,3,132
 INC A,96
 LDA 1,4704
 MOV 20
 LOD A,3,132
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 LOD A,3,132
 LOC    70
 IND I,56
 LDC I,0
 EQU I
 LOD A,3,132
 IND I,68
 LDC I,0
 GRT I
 IOR
 LOD A,3,132
 IND I,4
 LOC    80
 LDC I,3
 EQU I
 IOR
 FJP L3
 LDC I,66
 CHK I,0,285
 STR I,3,128
 MST 2,0,0
 CUP P,0,FINDR084
 UJP L4
L3 LAB
 LOC    90
 LDA 1,31060
 LOD A,3,132
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,3,128
 LDA 1,30932
 LOD A,3,132
 LOC   100
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L5
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L6
L5 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L6 LAB
 LOC   110
 LOD A,3,132
 IND I,56
 LDC I,2
 EQU I
 FJP L7
 LDC I,1
 CHK I,0,1
 STR I,3,32
L7 LAB
 LOD A,3,132
 INC A,56
 LOC   120
 LDC I,0
 CHK I,0,2
 STO I
L4 LAB
 LOD A,3,132
 INC A,84
 LDC I,0
 STO I
 LOD A,3,132
 INC A,88
 LOD I,1,35476
 LOC   130
 CHK I,0,31
 STO I
 MST 2,8,8
 LDA 3,72
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOC   140
 LOD I,3,128
 CHK I,0,285
 PAR I
 LDA 3,72
 PAR A
 LDA 3,16
 PAR A
 CUP P,6,EMITX077
 RET P
L1 DEF       136
 SST P  CALCU150       3       0       0     112       0
 LOC     0
CALCU150 ENT P,3,L1  CALCULATE_FP   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,120
 LOD A,3,120
 IND I,4
 ORD
 LOC    10
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 LOD A,3,120
 IND I,72
 LDC I,0
 EQU I
 AND
 LOD A,3,120
 IND I,56
 LOC    20
 LDC I,0
 EQU I
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'CALC_FPA 001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,0,0
 LOC    30
 CUP P,0,FINDR084
 MST 2,8,8
 LDA 3,64
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOD A,3,120
 IND I,4
 LOC    40
 LDC I,3
 NEQ I
 FJP L3
 MST 2,12,12
 LDA 3,8
 PAR A
 LDA 1,35500
 LOD A,3,120
 IND I,68
 CHK J,1,8
 LOC    50
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LOD A,3,120
 IND I,64
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LOC    60
 UJP L4
L3 LAB
 MST 2,12,12
 LDA 3,8
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOD A,3,120
 IND I,64
 CHK I,-16777216,16777215
 LOC    70
 PAR I
 CUP P,6,EXTEN073
 LDC I,1
 CHK I,0,5
 STR I,3,56
 LOD A,3,120
 INC A,4
 LDC I,2
 CHK I,0,15
 STO I
L4 LAB
 LOC    80
 LOD A,3,120
 INC A,60
 LDA 1,4692
 MOV 12
 LOD A,3,120
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 LOD A,3,120
 LOC    90
 INC A,84
 LDC I,0
 STO I
 LOD A,3,120
 INC A,88
 LOD I,1,35476
 CHK I,0,31
 STO I
 MST 2,12,12
 LDC I,66
 LOC   100
 CHK I,0,285
 PAR I
 LDA 3,64
 PAR A
 LDA 3,8
 PAR A
 CUP P,6,EMITX077
 RET P
L1 DEF       124
 SST P  DEREF151       3       4       0     116       4
 LOC     0
DEREF151 ENT P,3,L1  DEREF_AND_SH   1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,128
 LOD A,3,128
 IND I,56
 LDC I,0
 LOC    10
 GRT I
 LOD A,3,128
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,1036)
 INN
 IOR
 NOT
 FJP L2
 LOC    20
 MST 2,4,4
 LCA 'DEREFSHFT001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 3,68
 PAR A
 LOD A,3,8
 PAR A
 CUP P,4,VPA$O135
 LOC    30
 MST 2,8,8
 LDA 3,12
 PAR A
 LOD A,3,8
 IND I,0
 PAR I
 CUP P,4,IMM$O064
 MST 2,32,32
 LDA 3,124
 PAR A
 LOC    40
 LDC I,167
 CHK I,0,285
 PAR I
 LDA 3,68
 PAR A
 LDA 3,12
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 LOC    50
 PAR B
 LDC B,0
 PAR B
 LOD I,2,8
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD A,3,8
 PAR A
 LOC    60
 LOD I,3,124
 CHK I,0,31
 PAR I
 CUP P,4,FREEV094
 LOD A,3,8
 LDA 1,4704
 MOV 20
 LOD A,3,8
 INC A,8
 LDC I,0
 LOC    70
 STO I
 LOD A,3,8
 INC A,12
 LOD I,3,124
 CHK I,0,31
 STO I
 RET P
L1 DEF       132
 SST P  SHIFT152       3       4       0      60       4
 LOC     0
SHIFT152 ENT P,3,L1  SHIFT_VPA1     1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,72
 LOD A,3,72
 IND I,56
 LDC I,0
 LOC    10
 GRT I
 LOD A,3,72
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,1036)
 INN
 IOR
 NOT
 FJP L2
 LOC    20
 MST 2,4,4
 LCA 'SHIFTVPA 001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 3,12
 PAR A
 LOD A,3,72
 IND I,76
 PAR I
 LOC    30
 CUP P,4,IMM$O064
 MST 2,32,32
 LDA 3,68
 PAR A
 LDC I,167
 CHK I,0,285
 PAR I
 LOD A,3,8
 PAR A
 LDA 3,12
 LOC    40
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC    50
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD A,3,72
 INC A,76
 PAR A
 LOD I,3,68
 CHK I,0,31
 PAR I
 CUP P,4,FREEV094
 LOD A,3,72
 LOC    60
 INC A,76
 LDA 1,4704
 MOV 20
 LOD A,3,72
 INC A,84
 LDC I,0
 STO I
 LOD A,3,72
 INC A,88
 LOD I,3,68
 LOC    70
 CHK I,0,31
 STO I
 RET P
L1 DEF        76
 SST P  DEREF153       3       8       0      56       8
 LOC     0
DEREF153 ENT P,3,L1  DEREF          1 1 1
 MST 2,4,4
 LOD A,3,8
 PAR A
 CUP P,2,FREEV093
 MST 2,0,0
 CUP P,0,FINDR084
 MST 2,8,8
 LDA 3,16
 PAR A
 LOC    10
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 3,16
 PAR A
 LOC    20
 LOD A,3,12
 PAR A
 CUP P,6,EMITX077
 LOD A,3,8
 LDA 1,4704
 MOV 20
 LOD A,3,8
 INC A,8
 LDC I,0
 STO I
 LOC    30
 LOD A,3,8
 INC A,12
 LOD I,1,35476
 CHK I,0,31
 STO I
 RET P
L1 DEF        72
 SST P  DEREF154       3      12       0      56      12
 LOC     0
DEREF154 ENT P,3,L1  DEREF_TO_END   1 1 1
 MST 2,4,4
 LOD A,3,8
 PAR A
 CUP P,2,FREEV093
 LDA 1,30932
 LOD I,3,16
 CHK J,0,15
 IXA 1
 IND B,0
 LOC    10
 FJP L2
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L3
L2 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L3 LAB
 MST 2,8,8
 LDA 3,20
 PAR A
 LOD I,1,35476
 LOC    20
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 1,31060
 LOD I,3,16
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 LOC    30
 PAR I
 LDA 3,20
 PAR A
 LOD A,3,12
 PAR A
 CUP P,6,EMITX077
 LOD A,3,8
 LDA 1,4704
 MOV 20
 LOD A,3,8
 LOC    40
 INC A,8
 LDC I,0
 STO I
 LOD A,3,8
 INC A,12
 LOD I,1,35476
 CHK I,0,31
 STO I
 RET P
L1 DEF        76
 LOC     0
SIMPL111 ENT P,2,L1  SIMPLIFY       1 1 1
 LDA 1,35760
 LOD I,2,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,72
 LOD A,2,72
 IND I,60
 LDC I,0
 LOC    10
 EQU I
 FJP L2
 MST 2,4,4
 LDC I,21
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L2 LAB
 LOD A,2,72
 IND I,56
 LDC I,0
 LOC    20
 EQU I
 LOD A,2,72
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 AND
 FJP L3
 LOC    30
 LOD A,2,72
 IND I,68
 LDC I,0
 EQU I
 NOT
 FJP L4
 MST 2,4,4
 LCA 'SIMPLIFY 001'
 PAR A
 CUP P,2,ASSER003
L4 LAB
 LOC    40
 LOD A,2,72
 IND I,72
 XJP L5
L9 LAB
 LDC B,0
 NOT
 FJP L10
 MST 2,4,4
 LCA 'SIMPLIFY 002'
 PAR A
 CUP P,2,ASSER003
L10 LAB
 LOC    50
 UJP L8
L11 LAB
 MST 2,8,8
 LDA 2,12
 PAR A
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,4,VPA$O135
 LOD A,2,72
 IND I,76
 LOC    60
 LDC I,0
 GRT I
 FJP L12
 MST 3,4,4
 LDA 2,12
 PAR A
 CUP P,2,SHIFT152
 UJP L13
L12 LAB
 LOD A,2,72
 IND I,64
 LOC    70
 LDC I,0
 NEQ I
 FJP L14
 MST 3,4,4
 LDA 2,12
 PAR A
 CUP P,2,FPA$D147
 UJP L15
L14 LAB
 MST 2,4,4
 LOD A,2,72
 LOC    80
 INC A,76
 PAR A
 CUP B,2,IS$SI125
 NOT
 NOT
 FJP L16
 MST 2,4,4
 LCA 'SIMPLIFY 003'
 PAR A
 CUP P,2,ASSER003
L16 LAB
 LOC    90
 MST 3,12,12
 LOD A,2,72
 INC A,76
 PAR A
 LDA 2,12
 PAR A
 LOD A,2,72
 IND I,4
 CHK I,0,15
 PAR I
 LOC   100
 CUP P,6,DEREF154
L15 LAB
L13 LAB
 UJP L8
L17 LAB
 LOD A,2,72
 IND I,76
 LDC I,0
 GRT I
 FJP L18
 MST 3,4,4
 LOD A,2,72
 INC A,76
 LOC   110
 PAR A
 CUP P,2,DEREF151
 UJP L19
L18 LAB
 LOD A,2,72
 IND I,96
 LDC I,0
 GRT I
 FJP L20
 MST 3,4,4
 LOD A,2,72
 LOC   120
 INC A,96
 PAR A
 CUP P,2,DEREF151
 UJP L21
L20 LAB
 MST 3,0,0
 CUP P,0,ADD$V145
L21 LAB
L19 LAB
 UJP L8
L5 DEF         0
L6 DEF         2
L7 LAB
 UJP L9
 UJP L11
 UJP L17
L8 LAB
 LOC   130
 UJP L23
L3 LAB
 LOD A,2,72
 IND I,72
 XJP L24
L28 LAB
 LOD A,2,72
 IND I,4
 LDC I,3
 EQU I
 LOD A,2,72
 IND I,68
 LOC   140
 LDC I,0
 GRT I
 LOD A,2,72
 IND I,64
 LDC I,0
 NEQ I
 AND
 IOR
 NOT
 FJP L29
 LOC   150
 MST 2,4,4
 LCA 'SIMPLIFY 004'
 PAR A
 CUP P,2,ASSER003
L29 LAB
 MST 3,0,0
 CUP P,0,CALCU150
 UJP L27
L30 LAB
 LOD A,2,72
 IND I,4
 LDC I,3
 LOC   160
 NEQ I
 LOD A,2,72
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 MST 2,4,4
 LOD A,2,72
 INC A,76
 PAR A
 LOC   170
 CUP B,2,IS$SI125
 AND
 NOT
 NOT
 FJP L31
 MST 2,4,4
 LCA 'SIMPLIFY 005'
 PAR A
 CUP P,2,ASSER003
L31 LAB
 MST 2,4,4
 LOC   180
 LOD A,2,72
 INC A,76
 PAR A
 CUP B,2,FITS$126
 FJP L32
 MST 3,0,0
 CUP P,0,VPA$F148
 UJP L33
L32 LAB
 MST 2,8,8
 LDA 2,12
 LOC   190
 PAR A
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,4,VPA$O135
 LOD A,2,72
 IND I,76
 LDC I,0
 GRT I
 FJP L34
 LOC   200
 LOD A,2,72
 INC A,60
 LDA 1,4692
 EQU M,12
 LOD A,2,72
 IND I,4
 LDC I,3
 NEQ I
 AND
 FJP L35
 LOC   210
 MST 2,4,4
 LDC I,20
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L35 LAB
 MST 3,4,4
 LDA 2,12
 PAR A
 CUP P,2,SHIFT152
 UJP L36
L34 LAB
 LOC   220
 LOD A,2,72
 IND I,68
 LDC I,0
 GRT I
 LOD A,2,72
 IND I,64
 LDC I,0
 NEQ I
 AND
 FJP L37
 LOC   230
 MST 3,4,4
 LDA 2,12
 PAR A
 CUP P,2,FPA$L146
 UJP L38
L37 LAB
 LOD A,2,72
 IND I,4
 LDC I,3
 EQU I
 LOD A,2,72
 LOC   240
 INC A,60
 LDA 1,4692
 NEQ M,12
 IOR
 FJP L39
 MST 3,8,8
 LOD A,2,72
 INC A,76
 PAR A
 LDA 2,12
 LOC   250
 PAR A
 CUP P,4,DEREF153
 UJP L40
L39 LAB
 LOD I,2,12
 LDC I,1
 EQU I
 NOT
 FJP L41
 MST 2,4,4
 LCA 'SIMPLIFY 006'
 LOC   260
 PAR A
 CUP P,2,ASSER003
L41 LAB
 LOD A,2,72
 IND I,56
 LDC I,0
 GRT I
 LOD I,2,28
 LDC I,0
 EQU I
 AND
 LOC   270
 FJP L42
 LDC I,1
 CHK I,0,1
 STR I,2,28
 LOD A,2,72
 INC A,56
 LOD A,2,72
 IND I,56
 DEC I,1
 CHK I,0,2
 LOC   280
 STO I
L42 LAB
 LOD A,2,72
 IND I,56
 LDC I,0
 EQU I
 FJP L43
 MST 3,12,12
 LOD A,2,72
 INC A,76
 PAR A
 LOC   290
 LDA 2,12
 PAR A
 LOD A,2,72
 IND I,4
 CHK I,0,15
 PAR I
 CUP P,6,DEREF154
 UJP L44
L43 LAB
 MST 3,8,8
 LOD A,2,72
 LOC   300
 INC A,76
 PAR A
 LDA 2,12
 PAR A
 CUP P,4,DEREF153
 LOD A,2,72
 INC A,80
 LDC I,2
 CHK I,1,2
 STO I
 LOC   310
 LOD A,2,72
 INC A,56
 LOD A,2,72
 IND I,56
 DEC I,1
 CHK I,0,2
 STO I
L44 LAB
L40 LAB
L38 LAB
L36 LAB
L33 LAB
 UJP L27
L45 LAB
 MST 2,4,4
 LOD A,2,72
 LOC   320
 INC A,76
 PAR A
 CUP B,2,IS$SI125
 MST 2,4,4
 LOD A,2,72
 INC A,96
 PAR A
 CUP B,2,FITS$126
 AND
 FJP L46
 LOC   330
 MST 3,8,8
 LOD A,2,72
 INC A,96
 PAR A
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,4,SHORT149
 UJP L47
L46 LAB
 MST 2,4,4
 LOC   340
 LOD A,2,72
 INC A,96
 PAR A
 CUP B,2,IS$SI125
 MST 2,4,4
 LOD A,2,72
 INC A,76
 PAR A
 CUP B,2,FITS$126
 AND
 LOC   350
 FJP L48
 MST 3,8,8
 LOD A,2,72
 INC A,76
 PAR A
 LOD A,2,72
 INC A,96
 PAR A
 CUP P,4,SHORT149
 UJP L49
L48 LAB
 LOC   360
 LOD A,2,72
 IND I,4
 LDC I,3
 NEQ I
 LOD A,2,72
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 FJP L50
 LOC   370
 LOD A,2,72
 IND I,76
 LDC I,0
 GRT I
 FJP L51
 MST 3,4,4
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,2,DEREF151
 LOC   380
 UJP L52
L51 LAB
 MST 2,4,4
 LOD A,2,72
 INC A,76
 PAR A
 CUP B,2,IS$SI125
 NOT
 FJP L53
 MST 2,8,8
 LDA 2,12
 LOC   390
 PAR A
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,4,VPA$O135
 MST 3,8,8
 LOD A,2,72
 INC A,76
 PAR A
 LDA 2,12
 LOC   400
 PAR A
 CUP P,4,DEREF153
 UJP L54
L53 LAB
 LOD A,2,72
 IND I,96
 LDC I,0
 GRT I
 FJP L55
 MST 3,4,4
 LOD A,2,72
 LOC   410
 INC A,96
 PAR A
 CUP P,2,DEREF151
 UJP L56
L55 LAB
 MST 2,8,8
 LDA 2,12
 PAR A
 LOD A,2,72
 INC A,96
 PAR A
 LOC   420
 CUP P,4,VPA$O135
 MST 3,8,8
 LOD A,2,72
 INC A,96
 PAR A
 LDA 2,12
 PAR A
 CUP P,4,DEREF153
L56 LAB
L54 LAB
L52 LAB
 UJP L57
L50 LAB
 LOD A,2,72
 LOC   430
 IND I,76
 LDC I,0
 GRT I
 FJP L58
 MST 3,4,4
 LOD A,2,72
 INC A,76
 PAR A
 CUP P,2,DEREF151
 UJP L59
L58 LAB
 LOC   440
 LOD A,2,72
 IND I,96
 LDC I,0
 GRT I
 FJP L60
 MST 3,4,4
 LOD A,2,72
 INC A,96
 PAR A
 CUP P,2,DEREF151
 LOC   450
 UJP L61
L60 LAB
 MST 3,0,0
 CUP P,0,ADD$V145
L61 LAB
L59 LAB
L57 LAB
L49 LAB
L47 LAB
 UJP L27
L24 DEF         0
L25 DEF         2
L26 LAB
 UJP L28
 UJP L30
 UJP L45
L27 LAB
L23 LAB
 LOD B,1,283
 FJP L63
 LDA 1,13
 LOC   460
 CSP  SIO
 LCA '      INSTRUCTION(S) EMITTED:'
 LDC I,29
 LDC I,29
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOD A,1,288
 LDC N
 EQU A
 LOC   470
 FJP L64
 LOD A,1,324
 CHK A,-1,0
 STR A,1,288
L64 LAB
L65 LAB
 LOD A,1,288
 LDC N
 NEQ A
 FJP L66
 LDC I,0
 STR I,2,68
 LOC   480
 MST 2,8,8
 LDA 2,68
 PAR A
 LOD A,1,288
 CHK A,-1,0
 PAR A
 CUP P,4,DISAS007
 MST 2,4,4
 LOD A,1,288
 CHK A,-1,0
 LOC   490
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,1,288
 UJP L65
L66 LAB
 LOD A,1,328
 CHK A,-1,0
 STR A,1,288
 LDA 1,13
 CSP  SIO
 LOC   500
 LCA '      DATUM SIMPLIFIED'
 LDC I,22
 LDC I,22
 CSP  WRS
 CSP  WLN
 CSP  EIO
 MST 2,4,4
 LOD I,2,8
 CHK I,-1,30
 PAR I
 LOC   510
 CUP P,2,PRINT012
L63 LAB
 RET P
L1 DEF        76
 SST P  DISAS007       2       8       0      56       8
 SST P  PRINT155       3       0       0      12       0
 LOC     0
PRINT155 ENT P,3,L1  PRINTLOC       1 1 1
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,2,8
 IND I,0
 CHK I,0,34359738367
 PAR I
 CUP P,4,CVOS$034
 LDA 1,13
 LOC    10
 CSP  SIO
 LDA 3,8
 LDC I,10
 LDC I,10
 CSP  WRS
 LCA ' :  '
 LDC I,4
 LDC I,4
 CSP  WRS
 CSP  EIO
 LOC    20
 RET P
L1 DEF        20
 SST P  PRINT156       3       0       0      12       0
 LOC     0
PRINT156 ENT P,3,L1  PRINTIWORD     1 1 1
 MST 2,8,8
 LDA 3,8
 PAR A
 LDA 2,24
 PAR A
 CUP P,4,CVOS$032
 LDA 1,13
 CSP  SIO
 LDA 3,8
 LOC    10
 LDC I,12
 LDC I,12
 CSP  WRS
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 RET P
L1 DEF        20
 SST P  PRINT157       3       0       0      12       0
 LOC     0
PRINT157 ENT P,3,L1  PRINTXWRD1     1 1 1
 LOD A,2,40
 LDC N
 EQU A
 FJP L2
 UJP L3
L2 LAB
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,2,40
 LOC    10
 CHK A,0,0
 INC A,4
 PAR A
 CUP P,4,CVOS$032
 LDA 1,13
 CSP  SIO
 LCA '              '
 LDC I,14
 LDC I,14
 CSP  WRS
 LOC    20
 LDA 3,8
 LDC I,12
 LDC I,12
 CSP  WRS
 CSP  WLN
 CSP  EIO
L3 LAB
 RET P
L1 DEF        20
 SST P  PRINT158       3       0       0      12       0
 LOC     0
PRINT158 ENT P,3,L1  PRINTXWRD2     1 1 1
 LOD A,2,36
 LDC N
 EQU A
 FJP L2
 UJP L3
L2 LAB
 MST 2,8,8
 LDA 3,8
 PAR A
 LOD A,2,36
 LOC    10
 CHK A,0,0
 INC A,4
 PAR A
 CUP P,4,CVOS$032
 LDA 1,13
 CSP  SIO
 LCA '              '
 LDC I,14
 LDC I,14
 CSP  WRS
 LOC    20
 LDA 3,8
 LDC I,12
 LDC I,12
 CSP  WRS
 CSP  WLN
 CSP  EIO
L3 LAB
 RET P
L1 DEF        20
 SST P  PRINT159       3       0       0       0       0
 LOC     0
PRINT159 ENT P,3,L1  PRINTOPCODE    1 1 1
 LDA 1,13
 CSP  SIO
 LDA 1,24872
 LOD I,2,20
 CHK J,0,285
 IXA 15
 LDC I,15
 LDC I,15
 CSP  WRS
 LOC    10
 LDC C,' '
 LDC I,1
 CSP  WRC
 CSP  EIO
 RET P
L1 DEF         8
 SST P  PRINT160       3      16       8      52      16
 SST P  PRINT161       4       4       0       4       4
 LOC     0
PRINT161 ENT P,4,L1  PRINTREG       1 1 1
 LDC I,3
 STR I,4,12
 LOD I,4,8
 LDC I,4
 EQU I
 FJP L2
 LDA 1,13
 CSP  SIO
 LCA '%RTA'
 LOC    10
 LDC I,4
 LDC I,4
 CSP  WRS
 CSP  EIO
 UJP L3
L2 LAB
 LOD I,4,8
 LDC I,6
 EQU I
 FJP L4
 LDA 1,13
 LOC    20
 CSP  SIO
 LCA '%RTB'
 LDC I,4
 LDC I,4
 CSP  WRS
 CSP  EIO
 UJP L5
L4 LAB
 MST 2,4,4
 LOD I,4,8
 PAR I
 LOC    30
 CUP I,2,FLDW0001
 STR I,4,12
 LDA 1,13
 CSP  SIO
 LDC C,'%'
 LDC I,1
 CSP  WRC
 LOD I,4,8
 LOD I,4,12
 CSP  WRI
 LOC    40
 LDC C,'.'
 LDC I,1
 CSP  WRC
 CSP  EIO
L5 LAB
L3 LAB
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 LOD I,4,12
 LOC    50
 ADI
 LDC I,1
 ADI
 STO I
 RET P
L1 DEF        16
 SST P  PRINT162       4       0       0       0       0
 LOC     0
PRINT162 ENT P,4,L1  PRINTSHORTOP   1 1 1
 LOD I,3,56
 LDC I,0
 EQU I
 FJP L2
 MST 4,4,4
 LOD I,3,60
 CHK I,0,31
 PAR I
 CUP P,2,PRINT161
 LOC    10
 UJP L3
L2 LAB
 LOD I,3,56
 LDC I,1
 EQU I
 FJP L4
 MST 2,4,4
 LOD I,3,60
 PAR I
 CUP I,2,FLDW0001
 STR I,3,32
 LOC    20
 LDA 1,13
 CSP  SIO
 LDC C,'#'
 LDC I,1
 CSP  WRC
 LOD I,3,60
 LOD I,3,32
 CSP  WRI
 LDC C,'.'
 LDC I,1
 LOC    30
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 LOD I,3,32
 ADI
 LDC I,1
 LOC    40
 ADI
 STO I
 UJP L5
L4 LAB
 LOD I,3,56
 LDC I,2
 EQU I
 FJP L6
 LDC B,0
 NOT
 FJP L7
 LOC    50
 MST 2,4,4
 LCA 'PRINTSHOR001'
 PAR A
 CUP P,2,ASSER003
 UJP L8
L7 LAB
 LDC I,3
 LOD I,3,56
 LEQ I
 LOD I,3,56
 LDC I,31
 LOC    60
 LEQ I
 AND
 NOT
 FJP L9
 MST 2,4,4
 LCA 'PRINTSHOR002'
 PAR A
 CUP P,2,ASSER003
L9 LAB
 LOD I,3,60
 STR I,3,40
 LOC    70
 MST 2,4,4
 LOD I,3,40
 PAR I
 CUP I,2,FLDW0001
 STR I,3,32
 LDA 1,13
 CSP  SIO
 LOD I,3,40
 LOD I,3,32
 CSP  WRI
 LOC    80
 LCA '.('
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LOD I,3,32
 ADI
 LOC    90
 LDC I,2
 ADI
 STO I
 MST 4,4,4
 LOD I,3,56
 CHK I,0,31
 PAR I
 CUP P,2,PRINT161
 LDA 1,13
 CSP  SIO
 LOC   100
 LDC C,')'
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 STO I
L8 LAB
L6 LAB
L5 LAB
L3 LAB
 LOC   110
 RET P
L1 DEF         8
 LOC     0
PRINT160 ENT P,3,L1  PRINTOPERAND   1 1 1
 LDA 3,24
 LOD A,3,12
 MOV 8
 MST 2,12,12
 LDA 3,24
 PAR A
 LOD I,3,20
 LDC I,0
 ADI
 LOC    10
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,1
 STR I,3,52
 MST 2,12,12
 LDA 3,24
 LOC    20
 PAR A
 LOD I,3,20
 LDC I,1
 ADI
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC    30
 CHK I,0,31
 STR I,3,56
 MST 2,12,12
 LDA 3,24
 PAR A
 LOD I,3,20
 LDC I,6
 ADI
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 CHK I,-32,31
 STR I,3,60
 LOD A,3,8
 LDC I,0
 STO I
 LOD I,3,52
 LOC    50
 LDC I,1
 EQU I
 FJP L2
 LOD A,3,16
 LDC N
 NEQ A
 NOT
 FJP L3
 MST 2,4,4
 LCA 'PRINTOPER001'
 LOC    60
 PAR A
 CUP P,2,ASSER003
L3 LAB
 LDA 3,64
 LOD A,3,16
 CHK A,0,0
 INC A,4
 MOV 8
 LOD I,3,56
 LDC I,1
 EQU I
 LOC    70
 LOD I,3,60
 LDC I,0
 NEQ I
 AND
 FJP L4
 LOD I,3,60
 LDC I,1
 GEQ I
 LOD I,3,60
 LDC I,3
 LOC    80
 LEQ I
 AND
 NOT
 FJP L5
 MST 2,4,4
 LCA 'PRINTOPER002'
 PAR A
 CUP P,2,ASSER003
L5 LAB
 MST 2,12,12
 LDA 3,64
 LOC    90
 PAR A
 LDC I,0
 CHK I,0,35
 PAR Iα0LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 STR I,3,36
 LDA 1,13
 LOC   100
 CSP  SIO
 LDC C,'#'
 LDC I,1
 CSP  WRC
 LDC I,124
 CHR
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOC   110
 LOD A,3,8
 IND I,0
 LDC I,2
 ADI
 STO I
 LOD I,3,36
 LDC I,0
 EQU I
 LOD I,3,36
 LDC I,1
 LOC   120
 NGI
 EQU I
 IOR
 LOD I,3,60
 LDC I,1
 EQU I
 AND
 FJP L6
 MST 2,12,12
 LDA 3,64
 LOC   130
 PAR A
 LDC I,36
 LDC I,36
 LDC I,1
 SBI
 SBI
 CHK I,0,35
 PAR I
 LDC I,36
 LDC I,1
 LOC   140
 SBI
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 STR I,3,40
 LOD I,3,36
 LDC I,0
 EQU I
 LOD I,3,40
 LDC I,0
 LOC   150
 GEQ I
 AND
 LOD I,3,36
 LDC I,1
 NGI
 EQU I
 LOD I,3,40
 LDC I,0
 LES I
 AND
 LOC   160
 IOR
 NOT
 FJP L7
 MST 2,4,4
 LCA 'PRINTOPER003'
 PAR A
 CUP P,2,ASSER003
L7 LAB
 MST 2,4,4
 LOD I,3,40
 PAR I
 LOC   170
 CUP I,2,FLDW0001
 STR I,3,32
 LDA 1,13
 CSP  SIO
 LOD I,3,40
 LOD I,3,32
 CSP  WRI
 LDC C,'.'
 LDC I,1
 CSP  WRC
 LOC   180
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LOD I,3,32
 ADI
 LDC I,1
 ADI
 STO I
 UJP L8
L6 LAB
 LOC   190
 MST 2,8,8
 LDA 3,72
 PAR A
 LDA 3,64
 PAR A
 CUP P,4,CVOS$032
 LDC I,1
 STR I,3,44
L9 LAB
 LDA 3,72
 LOD I,3,44
 LOC   200
 CHK J,1,12
 DEC I,1
 IXA 1
 IND C,0
 LDC C,' '
 EQU C
 FJP L10
 LOD I,3,44
 LDC I,1
 ADI
 LOC   210
 STR I,3,44
 UJP L9
L10 LAB
 LOD I,3,44
 STR I,3,48
 LDC I,12
 STR I,3,84
 LOD I,3,48
 LOD I,3,84
 LEQ I
 FJP L12
L11 LAB
 LOC   220
 LDA 1,13
 CSP  SIO
 LDA 3,72
 LOD I,3,48
 CHK J,1,12
 DEC I,1
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 LOC   230
 CSP  EIO
 LOD I,3,48
 LOD I,3,84
 NEQ I
 FJP L12
 LOD I,3,48
 INC I,1
 STR I,3,48
 UJP L11
L12 LAB
 LOD A,3,8
 LOC   240
 LOD A,3,8
 IND I,0
 LDC I,12
 LDC I,1
 ADI
 ADI
 LOD I,3,44
 SBI
 STO I
 LOD I,3,60
 LOC   250
 LDC I,1
 NEQ I
 FJP L13
 LDA 1,13
 CSP  SIO
 LDC C,'F'
 LDC I,1
 CSP  WRC
 LOD I,3,60
 LDC I,1
 LOC   260
 CSP  WRI
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,2
 ADI
 STO I
L13 LAB
L8 LAB
 LDA 1,13
 CSP  SIO
 LOC   270
 LDC I,124
 CHR
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 LOC   280
 STO I
 UJP L14
L4 LAB
 LDA 1,13
 CSP  SIO
 LDC I,124
 CHR
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOC   290
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 STO I
 MST 2,12,12
 LDA 3,64
 PAR A
 LDC I,3
 CHK I,0,35
 LOC   300
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L15
 LDA 1,13
 CSP  SIO
 LOC   310
 LDC C,'@'
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 STO I
L15 LAB
 LOC   320
 MST 2,12,12
 LDA 3,64
 PAR A
 LDC I,1
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   330
 LDC I,1
 EQU I
 FJP L16
 MST 2,12,12
 LDA 3,64
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 LOC   340
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 STR I,3,40
 MST 2,4,4
 LOD I,3,40
 PAR I
 CUP I,2,FLDW0001
 STR I,3,32
 LDA 1,13
 LOC   350
 CSP  SIO
 LOD I,3,40
 LOD I,3,32
 CSP  WRI
 LCA '.('
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 LOD A,3,8
 LOC   360
 LOD A,3,8
 IND I,0
 LOD I,3,32
 ADI
 LDC I,2
 ADI
 STO I
 MST 4,4,4
 MST 2,12,12
 LDA 3,64
 LOC   370
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,31
 PAR I
 LOC   380
 CUP P,2,PRINT161
 LDA 1,13
 CSP  SIO
 LDC C,')'
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LOC   390
 LDC I,1
 ADI
 STO I
 UJP L17
L16 LAB
 MST 2,12,12
 LDA 3,64
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LOC   400
 LDC I,30
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 STR I,3,40
 MST 2,4,4
 LOD I,3,40
 PAR I
 CUP I,2,FLDW0001
 STR I,3,32
 LOC   410
 LDA 1,13
 CSP  SIO
 LOD I,3,40
 LOD I,3,32
 CSP  WRI
 LDC C,'.'
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOC   420
 LOD A,3,8
 IND I,0
 LOD I,3,32
 ADI
 LDC I,1
 ADI
 STO I
L17 LAB
 LDA 1,13
 CSP  SIO
 LDC I,124
 LOC   430
 CHR
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 STO I
 LOC   440
 LOD I,3,56
 LDC I,1
 EQU I
 LOD I,3,60
 LDC I,0
 EQU I
 AND
 FJP L18
 UJP L19
L18 LAB
 LDA 1,13
 LOC   450
 CSP  SIO
 LDC C,'('
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 LOC   460
 STO I
 MST 4,0,0
 CUP P,0,PRINT162
 LDA 1,13
 CSP  SIO
 LDC C,')'
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD A,3,8
 LOC   470
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 STO I
 MST 2,12,12
 LDA 3,64
 PAR A
 LDC I,4
 CHK I,0,35
 LOC   480
 PAR I
 LDC I,2
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 STR I,3,40
 LOD I,3,40
 LDC I,0
 NEQ I
 FJP L20
 LOC   490
 MST 2,4,4
 LOD I,3,40
 PAR I
 CUP I,2,FLDW0001
 STR I,3,32
 LDA 1,13
 CSP  SIO
 LDC C,'↑'
 LDC I,1
 CSP  WRC
 LOC   500
 LOD I,3,40
 LOD I,3,32
 CSP  WRI
 CSP  EIO
 LOD A,3,8
 LOD A,3,8
 IND I,0
 LDC I,1
 ADI
 LOD I,3,32
 LOC   510
 ADI
 STO I
L20 LAB
L19 LAB
L14 LAB
 UJP L21
L2 LAB
 LOD A,3,16
 LDC N
 EQU A
 NOT
 FJP L22
 MST 2,4,4
 LCA 'PRINTOPER004'
 LOC   520
 PAR A
 CUP P,2,ASSER003
L22 LAB
 MST 4,0,0
 CUP P,0,PRINT162
L21 LAB
 RET P
L1 DEF        88
 LOC     0
DISAS007 ENT P,2,L1  DISASSEMBLE    1 1 1
 MST 2,4,4
 LOD A,2,12
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,20
 LDC N
 CHK A,-1,0
 LOC    10
 STR A,2,40
 LDC N
 CHK A,-1,0
 STR A,2,36
 LDA 2,24
 LOD A,2,12
 CHK A,0,0
 INC A,4
 MOV 8
 LOD A,2,8
 LOC    20
 IND I,0
 STR I,2,16
 LDA 1,23728
 LOD I,2,20
 CHK J,0,285
 IXA 4
 IND I,0
 ORD
 CHK I,0,4
 XJP L2
L6 LAB
 LOC    30
 UJP L5
L7 LAB
 MST 3,0,0
 CUP P,0,PRINT155
 MST 3,0,0
 CUP P,0,PRINT156
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,32
 LOC    40
 LOD I,2,16
 LDC I,4
 ADI
 STR I,2,16
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LOC    50
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L8
 LOD I,2,16
 LDC I,4
 ADI
 LOC    60
 STR I,2,16
 LOD A,2,32
 CHK A,-1,0
 STR A,2,36
 LOD A,2,32
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,32
L8 LAB
 MST 2,12,12
 LOC    70
 LDA 2,24
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 LOC    80
 EQU I
 FJP L9
 LOD I,2,16
 LDC I,4
 ADI
 STR I,2,16
 LOD A,2,32
 CHK A,-1,0
 STR A,2,40
 LOD A,2,32
 LOC    90
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,32
L9 LAB
 MST 3,0,0
 CUP P,0,PRINT159
 LDA 1,23728
 LOD I,2,20
 CHK J,0,285
 IXA 4
 LOC   100
 IND I,0
 LDC I,1
 EQU I
 FJP L10
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,10
 CHK I,0,35
 PAR I
 LOC   110
 LDC I,2
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,3
 STR I,2,44
 LOD I,2,44
 LDC I,1
 EQU I
 FJP L11
 LOC   120
 MST 3,16,16
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,40
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 LOC   130
 PAR I
 CUP P,8,PRINT160
 LDA 1,13
 CSP  SIO
 LCA ' , %RTA, '
 LDC I,9
 LDC I,9
 CSP  WRS
 CSP  EIO
 MST 3,16,16
 LOC   140
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,36
 CHK A,-1,0
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LOC   150
 CUP P,8,PRINT160
 UJP L12
L11 LAB
 LOD I,2,44
 LDC I,2
 EQU I
 FJP L13
 LDA 1,13
 CSP  SIO
 LCA '%RTA , '
 LDC I,7
 LOC   160
 LDC I,7
 CSP  WRS
 CSP  EIO
 UJP L14
L13 LAB
 LOD I,2,44
 LDC I,3
 EQU I
 FJP L15
 LDA 1,13
 CSP  SIO
 LOC   170
 LCA '%RTB , '
 LDC I,7
 LDC I,7
 CSP  WRS
 CSP  EIO
L15 LAB
L14 LAB
 MST 3,16,16
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOC   180
 LOD A,2,40
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP P,8,PRINT160
 LDA 1,13
 CSP  SIO
 LCA ', '
 LOC   190
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 MST 3,16,16
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,36
 LOC   200
 CHK A,-1,0
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,8,PRINT160
L12 LAB
 UJP L16
L10 LAB
 MST 3,16,16
 LDA 2,48
 PAR A
 LOC   210
 LDA 2,24
 PAR A
 LOD A,2,40
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP P,8,PRINT160
 LDA 1,13
 LOC   220
 CSP  SIO
 LCA ', '
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 MST 3,16,16
 LDA 2,48
 PAR A
 LDA 2,24
 LOC   230
 PAR A
 LOD A,2,36
 CHK A,-1,0
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,8,PRINT160
 LDA 1,23728
 LOD I,2,20
 LOC   240
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,4
 EQU I
 FJP L17
 MST 2,8,8
 LDA 2,52
 PAR A
 LOD A,2,8
 LOC   250
 IND I,0
 LDC I,4
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,8
 CHK I,0,35
 PAR I
 LDC I,4
 CHK I,1,36
 LOC   260
 PAR I
 CUP I,6,GETSI021
 MPI
 ADI
 CHK I,0,34359738367
 PAR I
 CUP P,4,CVOS$034
 LDA 1,13
 CSP  SIO
 LCA ' , '
 LOC   270
 LDC I,3
 LDC I,3
 CSP  WRS
 CSP  EIO
 LDC I,1
 STR I,2,64
L18 LAB
 LDA 2,52
 LOD I,2,64
 CHK J,1,10
 DEC I,1
 LOC   280
 IXA 1
 IND C,0
 LDC C,' '
 EQU C
 FJP L19
 LOD I,2,64
 LDC I,1
 ADI
 STR I,2,64
 UJP L18
L19 LAB
 LOC   290
 LOD I,2,64
 STR I,2,68
 LDC I,10
 STR I,2,72
 LOD I,2,68
 LOD I,2,72
 LEQ I
 FJP L21
L20 LAB
 LDA 1,13
 CSP  SIO
 LOC   300
 LDA 2,52
 LOD I,2,68
 CHK J,1,10
 DEC I,1
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD I,2,68
 LOC   310
 LOD I,2,72
 NEQ I
 FJP L21
 LOD I,2,68
 INC I,1
 STR I,2,68
 UJP L20
L21 LAB
L17 LAB
L16 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 LOC   320
 CSP  EIO
 MST 3,0,0
 CUP P,0,PRINT158
 MST 3,0,0
 CUP P,0,PRINT157
 UJP L5
L22 LAB
 MST 3,0,0
 CUP P,0,PRINT155
 MST 3,0,0
 CUP P,0,PRINT156
 LOC   330
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,32
 LOD I,2,16
 LDC I,4
 ADI
 STR I,2,16
 LOD B,1,35756
 LOC   340
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   350
 LDC I,0
 EQU I
 AND
 LOD B,1,35756
 NOT
 IOR
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,24
 LOC   360
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 FJP L23
 LOC   370
 LOD I,2,16
 LDC I,4
 ADI
 STR I,2,16
 LOD A,2,32
 CHK A,-1,0
 STR A,2,36
 LOD A,2,32
 CHK A,0,0
 IND A,0
 LOC   380
 CHK A,-1,0
 STR A,2,32
L23 LAB
 MST 2,12,12
 LDA 2,24
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 LOC   390
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L24
 LOD I,2,16
 LDC I,4
 ADI
 STR I,2,16
 LOD A,2,32
 LOC   400
 CHK A,-1,0
 STR A,2,40
 LOD A,2,32
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,32
L24 LAB
 MST 3,0,0
 CUP P,0,PRINT159
 MST 3,16,16
 LOC   410
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,40
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOC   420
 CUP P,8,PRINT160
 LDA 1,13
 CSP  SIO
 LCA ' ,'
 LDC I,2
 LDC I,2
 CSP  WRS
 CSP  EIO
 LOD B,1,35756
 MST 2,12,12
 LOC   430
 LDA 2,24
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 LOC   440
 EQU I
 AND
 FJP L25
 MST 2,8,8
 LDA 2,52
 PAR A
 LOD A,2,8
 IND I,0
 LDC I,4
 MST 2,12,12
 LOC   450
 LDA 2,24
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 MPI
 LOC   460
 ADI
 CHK I,0,34359738367
 PAR I
 CUP P,4,CVOS$034
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOC   470
 LDC I,1
 STR I,2,64
L26 LAB
 LDA 2,52
 LOD I,2,64
 CHK J,1,10
 DEC I,1
 IXA 1
 IND C,0
 LDC C,' '
 EQU C
 LOC   480
 FJP L27
 LOD I,2,64
 LDC I,1
 ADI
 STR I,2,64
 UJP L26
L27 LAB
 LOD I,2,64
 STR I,2,68
 LDC I,10
 STR I,2,72
 LOC   490
 LOD I,2,68
 LOD I,2,72
 LEQ I
 FJP L29
L28 LAB
 LDA 1,13
 CSP  SIO
 LDA 2,52
 LOD I,2,68
 CHK J,1,10
 DEC I,1
 LOC   500
 IXA 1
 IND C,0
 LDC I,1
 CSP  WRC
 CSP  EIO
 LOD I,2,68
 LOD I,2,72
 NEQ I
 FJP L29
 LOD I,2,68
 LOC   510
 INC I,1
 STR I,2,68
 UJP L28
L29 LAB
 UJP L30
L25 LAB
 LDA 1,13
 CSP  SIO
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 LOC   520
 CSP  EIO
 MST 3,16,16
 LDA 2,48
 PAR A
 LDA 2,24
 PAR A
 LOD A,2,36
 CHK A,-1,0
 PAR A
 LDC I,24
 LOC   530
 CHK I,0,35
 PAR I
 CUP P,8,PRINT160
L30 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 MST 3,0,0
 CUP P,0,PRINT158
 MST 3,0,0
 LOC   540
 CUP P,0,PRINT157
 UJP L5
L2 DEF         0
L3 DEF         4
L4 LAB
 UJP L6
 UJP L7
 UJP L22
 UJP L7
 UJP L7
L5 LAB
 LOD A,2,8
 LOD I,2,16
 STO I
 LOC   550
 RET P
L1 DEF        76
 SST P  CODE$163       2       0       0      48       0
 SST I  INSTR164       3       8       0      28       8
 LOC     0
INSTR164 ENT I,3,L1  INSTR_WORDS    1 1 1
 LDA 3,16
 LOD A,3,8
 CHK A,0,0
 INC A,4
 MOV 8
 MST 2,4,4
 LOD A,3,8
 CHK A,-1,0
 PAR A
 LOC    10
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,3,32
 LDA 1,23728
 LOD I,3,32
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 EQU I
 LOC    20
 FJP L2
 LDC I,0
 STR I,3,28
 UJP L3
L2 LAB
 LDC I,1
 STR I,3,28
 MST 2,12,12
 LDA 3,16
 PAR A
 LDC I,24
 LOC    30
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L4
 LOD I,3,28
 LOC    40
 LDC I,1
 ADI
 STR I,3,28
L4 LAB
 MST 2,12,12
 LDA 3,16
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    50
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L5
 LOD I,3,28
 LDC I,1
 ADI
 STR I,3,28
L5 LAB
 LOC    60
 LDA 1,23728
 LOD I,3,32
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 FJP L6
 MST 2,4,4
 LOD A,3,8
 LOC    70
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,3,40
 MST 2,12,12
 LDA 3,16
 PAR A
 LDC I,11
 CHK I,0,35
 LOC    80
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L7
 LDC I,2
 STR I,3,28
 LOC    90
 UJP L8
L7 LAB
 LOD A,3,40
 LDC N
 NEQ A
 FJP L9
 MST 2,4,4
 LOD A,3,40
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LOC   100
 LDC I,2
 EQU I
 NOT
 FJP L10
 MST 2,4,4
 LCA 'CODE_CONC001'
 PAR A
 CUP P,2,ASSER003
L10 LAB
 MST 2,12,12
 LOD A,3,40
 LOC   110
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   120
 CHK I,0,16777215
 STR I,3,36
 LOD I,3,36
 LDC I,16777215
 NEQ I
 LOD I,3,36
 LOD I,3,12
 LES I
 AND
 FJP L11
 LOC   130
 MST 2,12,12
 LDA 3,16
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   140
 LDC I,0
 EQU I
 FJP L12
 LOD I,3,36
 LOD I,3,12
 SBI
 LDC I,4
 DVI
 STR I,3,24
 LOD I,3,24
 LOC   150
 LDC I,-2048
 LES I
 FJP L13
 LOD I,3,28
 LDC I,1
 ADI
 STR I,3,28
L13 LAB
L12 LAB
 UJP L14
L11 LAB
 MST 2,12,12
 LDA 3,16
 LOC   160
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 LOC   170
 LOD B,2,53
 AND
 FJP L15
 LOD I,3,28
 LDC I,1
 ADI
 STR I,3,28
L15 LAB
L14 LAB
L9 LAB
L8 LAB
L6 LAB
L3 LAB
 LOD I,3,28
 STR I,3,0
 RET I
L1 DEF        44
 SST P  CONC$165       3       0       0       0       0
 SST P  INSER166       4       4       0       4       4
 LOC     0
INSER166 ENT P,4,L1  INSERT_S1LOC   1 1 1
 LOD A,4,8
 LDC N
 NEQ A
 FJP L2
 MST 2,4,4
 LDA 4,12
 PAR A
 CUP P,2,NEWCO019
 LOD A,4,12
 LOC    10
 CHK A,0,0
 LOD A,4,8
 CHK A,0,0
 MOV 12
 LOD A,4,8
 CHK A,0,0
 LOD A,4,12
 CHK A,-1,0
 STO A
 LOD A,4,8
 LOC    20
 CHK A,0,0
 INC A,4
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,0
 LOC    30
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LDC I,2
 CHK J,0,285
 IXA 4
 IND I,0
 LOC    40
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOC    50
 LDC I,24
 CHK I,1,36
 PAR I
 LDC I,16777215
 PAR I
 CUP P,8,PUTFI022
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 LOC    60
 STR I,1,316
L2 LAB
 RET P
L1 DEF        16
 SST P  JMPX$167       4       4       0      16       4
 LOC     0
JMPX$167 ENT P,4,L1  JMPX_TO_JMPA   1 1 1
 MST 2,12,12
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 LOC    10
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 FJP L2
 MST 2,4,4
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOC    20
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,4,24
L3 LAB
 LDC B,0
 STR B,4,12
 LOD A,4,24
 LDC N
 NEQ A
 FJP L4
 MST 2,4,4
 LOC    30
 LOD A,4,24
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER044
 CHK A,-1,0
 STR A,4,20
 LOD A,4,20
 LDC N
 NEQ A
 FJP L5
 LOC    40
 MST 2,4,4
 LOD A,4,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,63
 EQU I
 FJP L6
 MST 2,4,4
 LOD A,4,20
 LOC    50
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,4,24
 LDC B,1
 STR B,4,12
 LOD I,1,41536
 LDC I,1
 ADI
 LOC    60
 STR I,1,41536
L6 LAB
L5 LAB
L4 LAB
 LOD B,4,12
 NOT
 FJP L3
 MST 2,4,4
 LOD A,4,8
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 LOC    70
 STR A,4,16
 LOD A,4,16
 CHK A,0,0
 INC A,4
 LOD A,4,24
 CHK A,-1,0
 STO A
L2 LAB
 RET P
L1 DEF        28
 LOC     0
CONC$165 ENT P,3,L1  CONC_PASS1     1 1 1
 LOD A,1,324
 CHK A,-1,0
 STR A,2,24
L2 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L3
 MST 2,4,4
 LOD A,2,24
 LOC    10
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,20
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LOC    20
 CHK I,0,285
 STR I,2,40
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 ORD
 CHK S,0,63
 LDC S,(0,0,0,20)
 LOC    30
 INN
 FJP L4
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 FJP L5
 LOC    40
 MST 4,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP P,2,JMPX$167
L5 LAB
 MST 4,4,4
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOC    50
 CUP A,2,JUMPS009
 CHK A,-1,0
 PAR A
 CUP P,2,INSER166
L4 LAB
 LOD A,2,20
 CHK A,-1,0
 STR A,2,24
 UJP L2
L3 LAB
 LOD A,1,320
 LDC N
 LOC    60
 NEQ A
 FJP L6
L7 LAB
 LOD A,1,320
 CHK A,0,0
 IND A,0
 LDC N
 NEQ A
 FJP L8
 LOD A,1,320
 CHK A,0,0
 LOC    70
 IND A,0
 CHK A,-1,0
 STR A,1,320
 UJP L7
L8 LAB
L6 LAB
 RET P
L1 DEF         8
 SST P  PEEPH168       3       4       0      12       4
 SST P  DELET169       4      12       0       8      12
 LOC     0
DELET169 ENT P,4,L1  DELETE_INSTR   1 1 1
 LOD A,4,8
 CHK A,-1,0
 STR A,4,20
L2 LAB
 LOD A,4,20
 LOD A,4,12
 NEQ A
 FJP L3
 LOD A,4,20
 CHK A,-1,0
 LOC    10
 STR A,4,8
 LOD A,4,20
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,4,20
 UJP L2
L3 LAB
 LDA 1,23728
 MST 2,4,4
 LOD A,4,12
 LOC    20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 CHK I,0,4
 STR I,4,24
 LOD A,4,12
 CHK A,0,0
 LOC    30
 IND A,0
 CHK A,-1,0
 STR A,4,20
 LOD I,1,316
 LDC I,1
 SBI
 CHK I,0,999999
 STR I,1,316
 LOD I,4,24
 LDC I,0
 LOC    40
 NEQ I
 FJP L4
 LOD I,3,20
 LDC I,1
 ADI
 STR I,3,20
 LOD I,4,16
 LDC I,2
 NEQ I
 LOD I,4,16
 LOC    50
 LDC I,3
 NEQ I
 AND
 MST 2,12,12
 LOD A,4,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 LOC    60
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 FJP L5
 LOD A,4,20
 LOC    70
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,4,20
 LOD I,1,316
 LDC I,1
 SBI
 CHK I,0,999999
 STR I,1,316
 LOD I,3,20
 LOC    80
 LDC I,1
 ADI
 STR I,3,20
L5 LAB
 LOD I,4,16
 LDC I,1
 NEQ I
 LOD I,4,16
 LDC I,3
 NEQ I
 AND
 LOC    90
 MST 2,12,12
 LOD A,4,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 LOC   100
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 FJP L6
 LOD A,4,20
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 LOC   110
 STR A,4,20
 LOD I,1,316
 LDC I,1
 SBI
 CHK I,0,999999
 STR I,1,316
 LOD I,3,20
 LDC I,1
 ADI
 STR I,3,20
L6 LAB
 LOC   120
 LOD I,4,24
 LDC I,4
 EQU I
 LOD I,4,24
 LDC I,2
 EQU I
 IOR
 FJP L7
 LOD A,4,20
 CHK A,0,0
 LOC   130
 IND A,0
 CHK A,-1,0
 STR A,4,20
 LOD I,1,316
 LDC I,1
 SBI
 CHK I,0,999999
 STR I,1,316
L7 LAB
L4 LAB
 LOD A,4,8
 CHK A,0,0
 LOC   140
 LOD A,4,20
 CHK A,-1,0
 STO A
 RET P
L1 DEF        28
 SST P  SKIP$170       4       8       0      32       8
 LOC     0
SKIP$170 ENT P,4,L1  SKIP_JMPA_OP   1 1 1
 MST 2,4,4
 LOD A,4,8
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,4,28
 MST 2,4,4
 LOD A,4,28
 LOC    10
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,63
 EQU I
 MST 2,12,12
 LOD A,4,28
 CHK A,0,0
 INC A,4
 PAR A
 LOC    20
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 NEQ I
 AND
 LOC    30
 FJP L2
 MST 3,8,8
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOD I,4,12
 PAR I
 CUP I,4,INSTR164
 CHK I,1,3
 STR I,4,40
 LOC    40
 MST 3,8,8
 LOD A,4,28
 CHK A,-1,0
 PAR A
 LOD I,4,12
 LOD I,4,40
 LDC I,4
 MPI
 ADI
 PAR I
 LOC    50
 CUP I,4,INSTR164
 CHK I,1,3
 STR I,4,36
 MST 2,4,4
 LOD A,4,28
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,4,24
 LOC    60
 MST 2,4,4
 LOD A,4,24
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,2
 EQU I
 NOT
 FJP L3
 MST 2,4,4
 LOC    70
 LCA 'SKIP_JMPA001'
 PAR A
 CUP P,2,ASSER003
L3 LAB
 MST 2,12,12
 LOD A,4,24
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 LOC    80
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,16777215
 STR I,4,32
 LOD I,4,32
 LDC I,16777215
 NEQ I
 LOC    90
 FJP L4
 LOD I,4,32
 LOD I,4,12
 SBI
 LDC I,4
 DVI
 STR I,4,44
 LOD I,4,44
 LDC I,0
 GRT I
 LOC   100
 FJP L5
 LOD I,4,44
 LOD I,4,36
 LOD I,3,20
 ADI
 SBI
 STR I,4,44
L5 LAB
 UJP L6
L4 LAB
 MST 3,8,8
 LOD A,4,8
 LOC   110
 CHK A,-1,0
 PAR A
 LOD I,4,12
 PAR I
 CUP I,4,INSTR164
 STR I,4,44
 MST 2,4,4
 LOD A,4,28
 CHK A,-1,0
 PAR A
 LOC   120
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,4,20
L7 LAB
 LOD I,4,44
 LDC I,7
 LEQ I
 LOD A,4,20
 LOD A,4,24
 NEQ A
 AND
 LOC   130
 LOD A,4,20
 LDC N
 NEQ A
 AND
 FJP L8
 LOD I,4,44
 MST 3,8,8
 LOD A,4,20
 CHK A,-1,0
 PAR A
 LOC   140
 LOD I,4,12
 LOD I,4,44
 LDC I,4
 MPI
 ADI
 PAR I
 CUP I,4,INSTR164
 ADI
 STR I,4,44
 MST 2,4,4
 LOC   150
 LOD A,4,20
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,4,20
 UJP L7
L8 LAB
L6 LAB
 LDC I,-8
 LOD I,4,44
 LEQ I
 LOC   160
 LOD I,4,44
 LDC I,7
 LEQ I
 AND
 FJP L9
 LOD I,1,41540
 LDC I,1
 ADI
 STR I,1,41540
 MST 2,4,4
 LOC   170
 LOD A,4,8
 CHK A,-1,0
 PAR A
 CUP P,2,INVER045
 MST 2,4,4
 LOD A,4,28
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 LOC   180
 STR A,4,16
 MST 2,4,4
 LOD A,4,16
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,2
 EQU I
 NOT
 FJP L10
 LOC   190
 MST 2,4,4
 LCA 'TRY_SKIP 001'
 PAR A
 CUP P,2,ASSER003
L10 LAB
 MST 2,4,4
 LOD A,4,8
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER042
 CHK A,-1,0
 LOC   200
 STR A,4,20
 LOD A,4,20
 CHK A,0,0
 INC A,4
 LOD A,4,24
 CHK A,-1,0
 STO A
 MST 4,12,12
 LOD A,4,8
 CHK A,-1,0
 LOC   210
 PAR A
 LOD A,4,28
 CHK A,-1,0
 PAR A
 LDC I,0
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
 MST 4,12,12
 LOD A,4,8
 LOC   220
 CHK A,-1,0
 PAR A
 LOD A,4,16
 CHK A,-1,0
 PAR A
 LDC I,0
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
L9 LAB
L2 LAB
 RET P
L1 DEF        48
 SST P  COLLA171       4      12       0      24      12
 LOC     0
COLLA171 ENT P,4,L1  COLLAPSE_MOV   1 1 1
 MST 2,8,8
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP I,4,S1OPN041
 STR I,4,24
 LOC    10
 MST 2,4,4
 LOD A,4,8
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,4,32
 LOD I,4,24
 LDC I,0
 GEQ I
 LOC    20
 LDA 1,29164
 LOD I,4,32
 CHK J,0,285
 IXA 4
 IND I,0
 LOD I,4,16
 EQU I
 AND
 LDA 1,30308
 LOD I,4,32
 LOC    30
 CHK J,0,285
 IXA 1
 IND B,0
 AND
 FJP L2
 MST 2,4,4
 LOD A,4,12
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 LOC    40
 CHK A,-1,0
 STR A,4,36
 LDC B,0
 STR B,4,41
 LOD A,4,36
 LDC N
 NEQ A
 STR B,4,40
L3 LAB
 LOD B,4,40
 LOD B,4,41
 LOC    50
 NOT
 AND
 FJP L4
 MST 2,4,4
 LOD A,4,36
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,3
 NEQ I
 LOC    60
 FJP L5
 LDC B,0
 STR B,4,40
 UJP L6
L5 LAB
 MST 2,12,12
 LOD A,4,36
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 LOC    70
 CHK I,0,35
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOD I,4,24
 EQU I
 FJP L7
 LDC B,1
 LOC    80
 STR B,4,41
 UJP L8
L7 LAB
 MST 2,4,4
 LOD A,4,36
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,4,36
 LOD A,4,36
 LOC    90
 LDC N
 NEQ A
 STR B,4,40
L8 LAB
L6 LAB
 UJP L3
L4 LAB
 LOD B,4,41
 FJP L9
 MST 2,12,12
 LOD A,4,12
 CHK A,0,0
 INC A,4
 LOC   100
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 STR I,4,28
 LDA 1,23728
 LOC   110
 LOD I,4,32
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,3
 EQU I
 FJP L10
 MST 2,8,8
 LOD A,4,8
 CHK A,-1,0
 LOC   120
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP I,4,S1OPN041
 LOD I,4,24
 EQU I
 FJP L11
 LOD I,1,41544
 LDC I,1
 LOC   130
 ADI
 STR I,1,41544
 MST 2,16,16
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOC   140
 LDC I,12
 CHK I,1,36
 PAR I
 LOD I,4,28
 PAR I
 CUP P,8,PUTFI022
 MST 4,12,12
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOC   150
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LDC I,1
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
L11 LAB
 UJP L12
L10 LAB
 LDA 1,23728
 LOD I,4,32
 LOC   160
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,1
 EQU I
 NOT
 FJP L13
 MST 2,4,4
 LCA 'COLLAPSE 001'
 PAR A
 LOC   170
 CUP P,2,ASSER003
L13 LAB
 MST 2,12,12
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,10
 CHK I,0,35
 PAR I
 LDC I,2
 LOC   180
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 STR I,4,20
 LOD I,4,20
 LDC I,1
 EQU I
 MST 2,8,8
 LOD A,4,8
 CHK A,-1,0
 LOC   190
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP I,4,S1OPN041
 LOD I,4,24
 EQU I
 AND
 FJP L14
 LOD I,1,41544
 LOC   200
 LDC I,1
 ADI
 STR I,1,41544
 MST 2,16,16
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LOC   210
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP B,8,S1OPN040
 FJP L15
 LDA 1,22584
 LOD I,4,32
 LOC   220
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 NEQ I
 NOT
 FJP L16
 MST 2,4,4
 LCA 'COLLAPSE 002'
 PAR A
 LOC   230
 CUP P,2,ASSER003
L16 LAB
 LOD A,4,8
 CHK A,0,0
 INC A,4
 LDA 1,4568
 MOV 8
 MST 2,16,16
 LOD A,4,8
 CHK A,0,0
 INC A,4
 LOC   240
 PAR A
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LDA 1,5056
 LDA 1,22584
 LOD I,4,32
 LOC   250
 CHK J,0,285
 IXA 4
 IND I,0
 CHK J,0,285
 IXA 4
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,4,8
 LOC   260
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LOD I,4,28
 LOC   270
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,30
 CHK I,0,35
 PAR I
 LOC   280
 LDC I,6
 CHK I,1,36
 PAR I
 LDC I,4
 PAR I
 CUP P,8,PUTFI022
 MST 4,12,12
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOC   290
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LDC I,0
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
 UJP L17
L15 LAB
 MST 2,16,16
 LOD A,4,8
 LOC   300
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LOD I,4,28
 LOC   310
 PAR I
 CUP P,8,PUTFI022
 MST 4,12,12
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LDC I,1
 LOC   320
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
L17 LAB
 UJP L18
L14 LAB
 LOD I,4,20
 LDC I,2
 EQU I
 LOD I,4,24
 LDC I,4
 EQU I
 LOC   330
 AND
 LOD I,4,20
 LDC I,3
 EQU I
 LOD I,4,24
 LDC I,6
 EQU I
 AND
 IOR
 FJP L19
 LOC   340
 MST 2,16,16
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LOC   350
 LDC I,12
 CHK I,0,35
 PAR I
 CUP B,8,S1OPN040
 FJP L20
 LOD I,1,41544
 LDC I,1
 ADI
 STR I,1,41544
 MST 2,16,16
 LOC   360
 LOD A,4,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,10
 CHK I,0,35
 PAR I
 LDC I,2
 CHK I,1,36
 PAR I
 LOC   370
 LDC I,0
 PAR I
 CUP P,8,PUTFI022
 MST 4,12,12
 LOD A,4,8
 CHK A,-1,0
 PAR A
 LOD A,4,12
 CHK A,-1,0
 PAR A
 LOC   380
 LDC I,0
 CHK I,0,3
 PAR I
 CUP P,6,DELET169
L20 LAB
L19 LAB
L18 LAB
L12 LAB
L9 LAB
L2 LAB
 RET P
L1 DEF        44
 LOC     0
PEEPH168 ENT P,3,L1  PEEPHOLE_OPT   1 1 1
 LDC I,0
 STR I,3,20
 LOD A,1,324
 CHK A,-1,0
 STR A,2,24
 LDC N
 CHK A,-1,0
 STR A,3,12
 LOD I,1,4860
 LOC    10
 STR I,1,312
L2 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L3
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LOC    20
 CHK I,0,285
 STR I,2,40
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,3
 EQU I
 LOD A,3,12
 LOC    30
 LDC N
 NEQ A
 AND
 FJP L4
L4 LAB
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 LOC    40
 NEQ I
 LOD I,2,40
 LDC I,2
 EQU I
 IOR
 FJP L5
 LOD A,2,24
 CHK A,-1,0
 STR A,3,12
L5 LAB
 MST 2,4,4
 LOC    50
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,24
 UJP L2
L3 LAB
 LOD I,1,41532
 LOD I,3,20
 ADI
 LOC    60
 STR I,1,41532
 LOD I,1,316
 CHK I,0,16777215
 STR I,2,28
 LOD A,3,8
 LDC B,1
 STO B
 LDC I,0
 STR I,1,41524
L6 LAB
 LOD A,3,8
 LOC    70
 IND B,0
 LOD I,1,41524
 LDC I,2
 LES I
 AND
 FJP L7
 LDC I,0
 STR I,3,20
 LOD A,1,324
 CHK A,-1,0
 LOC    80
 STR A,2,24
 LOD I,1,4860
 STR I,1,312
 LOD I,2,28
 LDC I,4
 DVI
 LDC I,2047
 GRT I
 STR B,2,53
L8 LAB
 LOD A,2,24
 LOC    90
 LDC N
 NEQ A
 FJP L9
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,40
 LOC   100
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 EQU I
 FJP L10
 LOD I,2,40
 LDC I,2
 LOC   110
 EQU I
 FJP L11
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LOC   120
 LDC I,24
 CHK I,1,36
 PAR I
 LOD I,1,312
 PAR I
 CUP P,8,PUTFI022
L11 LAB
 UJP L12
L10 LAB
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 LOC   130
 IXA 4
 IND I,0
 LDC I,4
 EQU I
 FJP L13
 MST 4,8,8
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOD I,1,312
 LOC   140
 PAR I
 CUP P,4,SKIP$170
L13 LAB
L12 LAB
 LOD I,1,312
 MST 3,8,8
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOD I,1,312
 PAR I
 CUP I,4,INSTR164
 LOC   150
 LDC I,4
 MPI
 ADI
 STR I,1,312
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 LOC   160
 STR A,2,24
 UJP L8
L9 LAB
 LOD A,3,8
 LOD I,3,20
 LDC I,0
 NEQ I
 STO B
 LOD I,1,312
 CHK I,0,16777215
 STR I,2,28
 LOC   170
 LOD I,1,41532
 LOD I,3,20
 ADI
 STR I,1,41532
 LOD I,1,41524
 LDC I,1
 ADI
 STR I,1,41524
 UJP L6
L7 LAB
 RET P
L1 DEF        24
 SST P  CONC$172       3       0       0       0       0
 LOC     0
CONC$172 ENT P,3,L1  CONC_PASS2     1 1 1
 LOD A,1,324
 CHK A,-1,0
 STR A,2,24
 LOD I,1,4860
 STR I,1,312
 LOD I,2,28
 LDC I,4
 DVI
 LDC I,2047
 LOC    10
 GRT I
 STR B,2,53
L2 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L3
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOC    20
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,40
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 EQU I
 LOC    30
 FJP L4
 LOD I,2,40
 LDC I,2
 EQU I
 FJP L5
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LOC    40
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 LOD I,1,312
 PAR I
 CUP P,8,PUTFI022
L5 LAB
L4 LAB
 LOD I,1,312
 LOC    50
 MST 3,8,8
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOD I,1,312
 PAR I
 CUP I,4,INSTR164
 LDC I,4
 MPI
 ADI
 LOC    60
 STR I,1,312
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,24
 UJP L2
L3 LAB
 LOD I,1,312
 LOC    70
 CHK I,0,16777215
 STR I,2,28
 RET P
L1 DEF         8
 SST P  CONC$173       3       0       0      68       0
 SST P  PASS3174       4      12       8       4      12
 LOC     0
PASS3174 ENT P,4,L1  PASS3PCRELFI   1 1 1
 LDA 4,20
 LOD A,4,8
 MOV 8
 MST 2,12,12
 LDA 4,20
 PAR A
 LOD I,4,16
 LDC I,0
 ADI
 LOC    10
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 NOT
 FJP L2
 LOC    20
 MST 2,4,4
 LCA 'PASS3PCRE001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,12,12
 LOD A,4,12
 PAR A
 LDC I,1
 CHK I,0,35
 PAR I
 LOC    30
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,1
 STR I,4,28
 MST 2,12,12
 LDA 4,20
 PAR A
 LOD I,4,16
 LOC    40
 LDC I,1
 ADI
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 LOC    50
 MST 2,12,12
 LDA 4,20
 PAR A
 LOD I,4,16
 LDC I,6
 ADI
 CHK I,0,35
 PAR I
 LDC I,6
 CHK I,1,36
 LOC    60
 PAR I
 CUP I,6,GETFI020
 LDC I,3
 EQU I
 AND
 LOD I,4,28
 LDC I,1
 EQU I
 MST 2,12,12
 LOD A,4,12
 LOC    70
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,3
 EQU I
 LOC    80
 AND
 IOR
 FJP L3
 LOD I,4,28
 LDC I,1
 EQU I
 FJP L4
 MST 2,16,16
 LOD A,4,12
 PAR A
 LOC    90
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 MST 2,12,12
 LOD A,4,12
 PAR A
 LDC I,11
 LOC   100
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 LOD I,1,312
 SBI
 PAR I
 CUP P,8,PUTFI022
 LOC   110
 UJP L5
L4 LAB
 MST 2,16,16
 LOD A,4,12
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,30
 CHK I,1,36
 PAR I
 LOC   120
 MST 2,12,12
 LOD A,4,12
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,30
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 LOC   130
 LOD I,1,312
 SBI
 PAR I
 CUP P,8,PUTFI022
L5 LAB
L3 LAB
 RET P
L1 DEF        32
 SST P  INSER175       4       0       0      56       0
 LOC     0
INSER175 ENT P,4,L1  INSERT_NOP     1 1 1
 MST 2,16,16
 LOD A,2,8
 CHK A,-1,0
 PAR A
 LDC I,153
 CHK I,0,285
 PAR I
 LDA 1,4512
 PAR A
 LOC    10
 LDA 1,4512
 PAR A
 CUP P,8,INSER101
 LOD I,2,36
 LDC I,4
 ADI
 CHK I,0,16777215
 STR I,2,36
 RET P
L1 DEF        64
 LOC     0
CONC$173 ENT P,3,L1  CONC_PASS3     1 1 1
 LOD A,1,324
 CHK A,-1,0
 STR A,2,24
 LOD I,1,4860
 STR I,1,312
 LOD I,2,28
 LDC I,4
 DVI
 LDC I,2047
 LOC    10
 GRT I
 STR B,2,53
L2 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L3
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOC    20
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,20
 LOD I,1,312
 CHK I,0,16777215
 STR I,2,36
 MST 2,4,4
 LOD A,2,24
 CHK A,-1,0
 PAR A
 LOC    30
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,40
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 EQU I
 LOC    40
 FJP L4
 LOD I,2,40
 LDC I,2
 EQU I
 FJP L5
 MST 2,12,12
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LOC    50
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOD I,1,312
 EQU I
 NOT
 LOC    60
 FJP L6
 MST 2,4,4
 LCA 'CODE_CONC002'
 PAR A
 CUP P,2,ASSER003
L6 LAB
L5 LAB
 UJP L7
L4 LAB
 LDA 2,44
 LOD A,2,24
 CHK A,0,0
 INC A,4
 LOC    70
 MOV 8
 LOD I,2,36
 LDC I,4
 ADI
 CHK I,0,16777215
 STR I,2,36
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 LOC    80
 STR A,2,12
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOC    90
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L8
 LOD I,2,36
 LDC I,4
 ADI
 CHK I,0,16777215
 STR I,2,36
 MST 2,12,12
 LOC   100
 LDA 2,44
 PAR A
 LDC I,30
 CHK I,0,35
 PAR I
 LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 LOC   110
 GRT I
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,25
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 LOC   120
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 NOT
 FJP L9
 MST 4,12,12
 LDA 2,44
 PAR A
 LOD A,2,12
 LOC   130
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,6,PASS3174
L9 LAB
 LOD A,2,12
 CHK A,0,0
 IND A,0
 LOC   140
 CHK A,-1,0
 STR A,2,12
L8 LAB
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 LOC   150
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L10
 LOD I,2,36
 LDC I,4
 ADI
 CHK I,0,16777215
 STR I,2,36
 LOC   160
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,18
 CHK I,0,35
 PAR I
 LDC I,6
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   170
 LDC I,0
 GRT I
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,13
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 LOC   180
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 NOT
 FJP L11
 MST 4,12,12
 LDA 2,44
 PAR A
 LOC   190
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 CUP P,6,PASS3174
L11 LAB
 LOD A,2,12
 CHK A,0,0
 LOC   200
 IND A,0
 CHK A,-1,0
 STR A,2,12
L10 LAB
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,4
 EQU I
 LOC   210
 FJP L12
 LOD A,2,12
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 STR A,2,16
 LOD A,2,16
 LDC N
 NEQ A
 FJP L13
 LOC   220
 MST 2,4,4
 LOD A,2,16
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,2
 EQU I
 NOT
 FJP L14
 MST 2,4,4
 LOC   230
 LCA 'CODE_CONC003'
 PAR A
 CUP P,2,ASSER003
L14 LAB
 MST 2,12,12
 LOD A,2,16
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,12
 CHK I,0,35
 LOC   240
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,16777215
 STR I,2,32
 LOD I,2,32
 LDC I,16777215
 NEQ I
 LOC   250
 NOT
 FJP L15
 MST 2,4,4
 LCA 'CODE_CONC004'
 PAR A
 CUP P,2,ASSER003
L15 LAB
 LOD I,2,32
 LOD I,1,312
 SBI
 LDC I,4
 LOC   260
 DVI
 CHK I,-8,7
 STR I,3,8
 LDC I,-8
 LOD I,3,8
 LEQ I
 LOD I,3,8
 LDC I,7
 LEQ I
 AND
 LOC   270
 NOT
 FJP L16
 MST 2,4,4
 LCA 'CODE_CONC005'
 PAR A
 CUP P,2,ASSER003
L16 LAB
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 LOC   280
 PAR A
 LDC I,8
 CHK I,0,35
 PAR I
 LDC I,4
 CHK I,1,36
 PAR I
 LOD I,3,8
 PAR I
 CUP P,8,PUTFI022
L13 LAB
 LOC   290
 UJP L17
L12 LAB
 LDA 1,23728
 LOD I,2,40
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,2
 EQU I
 FJP L18
 LOD A,2,12
 LOC   300
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 STR A,2,16
 LOD A,2,12
 CHK A,-1,0
 STR A,2,8
 MST 2,12,12
 LDA 2,44
 PAR A
 LOC   310
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 STR B,3,72
 LOC   320
 LOD A,2,16
 LDC N
 EQU A
 FJP L19
 LOD I,1,312
 CHK I,0,16777215
 STR I,2,32
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 LOC   330
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,0
 PAR I
 LOC   340
 CUP P,8,PUTFI022
 UJP L20
L19 LAB
 MST 2,4,4
 LOD A,2,16
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 LDC I,2
 EQU I
 NOT
 LOC   350
 FJP L21
 MST 2,4,4
 LCA 'CODE_CONC006'
 PAR A
 CUP P,2,ASSER003
L21 LAB
 MST 2,12,12
 LOD A,2,16
 CHK A,0,0
 INC A,4
 PAR A
 LOC   360
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,24
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 CHK I,0,16777215
 STR I,2,32
 LOD I,2,32
 LOC   370
 LDC I,16777215
 NEQ I
 NOT
 FJP L22
 MST 2,4,4
 LCA 'CODE_CONC007'
 PAR A
 CUP P,2,ASSER003
L22 LAB
 LOD I,2,32
 LOD I,1,312
 LOC   380
 SBI
 LDC I,4
 DVI
 STR I,3,12
 LDC I,-2048
 LOD I,3,12
 LEQ I
 LOD I,3,12
 LDC I,2047
 LEQ I
 LOC   390
 AND
 MST 2,12,12
 LDA 2,44
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOC   400
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 AND
 FJP L23
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LOC   410
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 CUP P,8,PUTFI022
 MST 2,16,16
 LOC   420
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,12
 CHK I,1,36
 PAR I
 LOC   430
 LOD I,3,12
 PAR I
 CUP P,8,PUTFI022
 UJP L24
L23 LAB
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 LOC   440
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,0
 PAR I
 CUP P,8,PUTFI022
 MST 2,12,12
 LDA 2,44
 LOC   450
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 LOC   460
 FJP L25
 LOD B,2,53
 NOT
 FJP L26
 MST 2,4,4
 LCA 'CODE_CONC010'
 PAR A
 CUP P,2,ASSER003
L26 LAB
 LOD I,2,36
 LDC I,4
 LOC   470
 ADI
 CHK I,0,16777215
 STR I,2,36
 MST 2,4,4
 LDA 2,12
 PAR A
 CUP P,2,NEWCO019
 LOD A,2,12
 CHK A,0,0
 LOD A,2,24
 LOC   480
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STO A
 LOD A,2,24
 CHK A,0,0
 LOD A,2,12
 CHK A,-1,0
 STO A
 LDA 3,16
 LOC   490
 LDA 1,4400
 MOV 56
 LDC I,1
 CHK I,0,1
 STR I,3,16
 LDC I,0
 CHK I,-32,31
 STR I,3,24
 LDC I,1
 CHK I,0,31
 LOC   500
 STR I,3,20
 LDC I,1
 CHK I,0,1
 STR I,3,40
 LDC I,3
 CHK I,0,31
 STR I,3,56
 LOD I,1,312
 NGI
 CHK I,-16777216,16777215
 LOC   510
 STR I,3,60
 MST 2,16,16
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LOD A,2,12
 CHK A,-1,0
 PAR A
 LDA 3,16
 LOC   520
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP P,8,BUILD096
 LOD I,1,316
 LDC I,1
 ADI
 CHK I,0,999999
 STR I,1,316
L25 LAB
 LOC   530
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
 MST 2,16,16
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LOC   540
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 MST 2,12,12
 LOD A,2,12
 CHK A,0,0
 INC A,4
 LOC   550
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 LOD I,2,32
 ADI
 LOC   560
 PAR I
 CUP P,8,PUTFI022
L24 LAB
L20 LAB
 LOD B,3,72
 FJP L27
L28 LAB
 LOD I,2,36
 LOD I,1,312
 SBI
 LDC I,2
 LDC I,4
 MPI
 LOC   570
 LES I
 FJP L29
 MST 4,0,0
 CUP P,0,INSER175
 UJP L28
L29 LAB
 LOD I,2,36
 LOD I,1,312
 SBI
 LDC I,2
 LDC I,4
 LOC   580
 MPI
 EQU I
 NOT
 FJP L30
 MST 2,4,4
 LCA 'CODE_CONC008'
 PAR A
 CUP P,2,ASSER003
L30 LAB
 UJP L31
L27 LAB
 LOD I,2,32
 LOC   590
 LOD I,1,312
 GRT I
 FJP L32
 MST 2,12,12
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 LOC   600
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 LOD B,2,53
 AND
 FJP L33
 LOC   610
 MST 4,0,0
 CUP P,0,INSER175
L33 LAB
L32 LAB
L31 LAB
L18 LAB
L17 LAB
L7 LAB
 LOD A,2,20
 CHK A,-1,0
 STR A,2,24
 LOD I,2,36
 STR I,1,312
 UJP L2
L3 LAB
 LOD I,2,28
 LOD I,1,312
 LOC   620
 EQU I
 NOT
 FJP L34
 MST 2,4,4
 LCA 'CODE_CONC009'
 PAR A
 CUP P,2,ASSER003
L34 LAB
 LDC B,1
 STR B,1,35756
 RET P
L1 DEF        76
 LOC     0
CODE$163 ENT P,2,L1  CODE_CONCRET   1 1 1
 MST 3,0,0
 CUP P,0,CONC$165
 MST 3,4,4
 LDA 2,52
 PAR A
 CUP P,2,PEEPH168
 LOD B,2,52
 FJP L2
 MST 3,0,0
 LOC    10
 CUP P,0,CONC$172
L2 LAB
 MST 3,0,0
 CUP P,0,CONC$173
 RET P
L1 DEF        56
 SST P  INIT$176       2       0       0      12       0
 LOC     0
INIT$176 ENT P,2,L1  INIT_SEGMENT   1 1 1
 LDA 1,5052
 NEW 12
 LDA 1,316
 LDA 1,4724
 MOV 12
 LDC B,0
 STR B,1,35756
 MST 2,4,4
 LDA 1,328
 LOC    10
 PAR A
 CUP P,2,NEWCO019
 LDA 1,336
 LDA 1,4724
 MOV 12
 LDC I,0
 STR I,1,348
 LDA 1,440
 LDA 1,4724
 MOV 12
 LOC    20
 LDC I,1
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,1,39472
 LDC I,0
 CHK I,0,31
 STR I,2,8
 LDC I,31
 CHK I,0,31
 LOC    30
 STR I,2,20
 LOD I,2,8
 LOD I,2,20
 LEQ I
 FJP L3
L2 LAB
 LDA 1,35308
 LOD I,2,8
 CHK J,0,31
 IXA 1
 LDC B,1
 LOC    40
 STO B
 LDA 1,35340
 LOD I,2,8
 CHK J,0,31
 IXA 4
 LDC I,0
 CHK I,0,2
 STO I
 LOD I,2,8
 LOD I,2,20
 LOC    50
 NEQ I
 FJP L3
 LOD I,2,8
 INC I,1
 CHK I,0,31
 STR I,2,8
 UJP L2
L3 LAB
 LDC I,32
 CHK I,32,39
 STR I,2,12
 LOC    60
 LDC I,39
 CHK I,32,39
 STR I,2,20
 LOD I,2,12
 LOD I,2,20
 LEQ I
 FJP L5
L4 LAB
 LDA 1,35468
 LOD I,2,12
 CHK J,32,39
 LOC    70
 DEC I,32
 IXA 1
 LDC B,1
 STO B
 LOD I,2,12
 LOD I,2,20
 NEQ I
 FJP L5
 LOD I,2,12
 INC I,1
 LOC    80
 CHK I,32,39
 STR I,2,12
 UJP L4
L5 LAB
 LDC I,8
 CHK I,0,31
 STR I,1,35488
 LDC I,0
 STR I,2,16
 LDC I,196
 STR I,2,20
 LOC    90
 LOD I,2,16
 LOD I,2,20
 LEQ I
 FJP L7
L6 LAB
 LDA 1,500
 LOD I,2,16
 CHK J,0,196
 IXA 4
 LDC N
 CHK A,-1,0
 LOC   100
 STO A
 LOD I,2,16
 LOD I,2,20
 NEQ I
 FJP L7
 LOD I,2,16
 INC I,1
 STR I,2,16
 UJP L6
L7 LAB
 LDC I,0
 LOC   110
 STR I,1,464
 LDA 1,480
 LDA 1,4724
 MOV 12
 LDA 1,468
 LDA 1,4724
 MOV 12
 LDA 1,452
 LDA 1,4724
 MOV 12
 LOC   120
 LDC I,0
 CHK I,0,15
 STR I,1,39924
 LDA 1,39476
 LOD I,1,39924
 CHK J,0,15
 IXA 28
 STR A,2,20
 LOD A,2,20
 INC A,4
 LOC   130
 LDC I,1
 LDC I,1
 SBI
 CHK I,-1,30
 STO I
 LOD A,2,20
 INC A,20
 LDC I,0
 STO I
 LDA 1,392
 LOC   140
 LDA 1,4724
 MOV 12
 LDA 1,380
 LDA 1,4724
 MOV 12
 LDA 1,356
 LDA 1,4724
 MOV 12
 LDA 1,368
 LDA 1,4724
 LOC   150
 MOV 12
 LDA 1,428
 LDA 1,4724
 MOV 12
 LDA 1,416
 LDA 1,4724
 MOV 12
 LDA 1,404
 LDA 1,4724
 MOV 12
 LOC   160
 LDC I,0
 STR I,1,492
 LDC N
 CHK A,-1,0
 STR A,1,496
 RET P
L1 DEF        24
 SST P  GEN$S177       2       0       0     148       0
 SST P  FIXDI178       3       8       0       4       8
 LOC     0
FIXDI178 ENT P,3,L1  FIXDISP        1 1 1
 MST 2,12,12
 LOD A,3,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 LOC    10
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 STR I,3,16
 LOD I,3,16
 LOD I,3,12
 ADI
 STR I,3,16
 LOD I,3,16
 LDC I,16777215
 LOC    20
 GRT I
 LOD I,3,16
 LDC I,-16777216
 LES I
 IOR
 FJP L2
 MST 2,4,4
 LDC I,30
 CHK I,0,68
 PAR I
 LOC    30
 CUP P,2,ERROR005
 UJP L3
L2 LAB
 MST 2,16,16
 LOD A,3,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LOC    40
 LDC I,25
 CHK I,1,36
 PAR I
 LOD I,3,16
 PAR I
 CUP P,8,PUTFI022
L3 LAB
 RET P
L1 DEF        20
 SST P  OPEN$179       3      16       0       0      16
 LOC     0
OPEN$179 ENT P,3,L1  OPEN_SEGMENT   1 1 1
 RET P
L1 DEF        24
 SST P  CLOSE180       3       0       0       0       0
 LOC     0
CLOSE180 ENT P,3,L1  CLOSE_SEGMEN   1 1 1
 LDA 1,15
 CSP  SIO
 LCA 'EOM '
 LDC I,4
 LDC I,4
 CSP  WRS
 LDA 1,5036
 LDC I,8
 LDC I,8
 LOC    10
 CSP  WRS
 LCA ' COMMENTS OR INSULTS'
 LDC I,20
 LDC I,20
 CSP  WRS
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF         8
 SST P  CLEAR181       3       0       0      28       0
 LOC     0
CLEAR181 ENT P,3,L1  CLEAROUT_TXT   1 1 1
 LOD I,1,41520
 LOD I,2,140
 ADI
 STR I,1,41520
 LOD I,2,140
 LDC I,0
 GRT I
 FJP L2
 MST 2,8,8
 LOC    10
 LDA 3,12
 PAR A
 LOD I,2,144
 CHK I,0,34359738367
 PAR I
 CUP P,4,CVOS$033
 LDA 1,15
 CSP  SIO
 LCA 'TXT '
 LDC I,4
 LOC    20
 LDC I,4
 CSP  WRS
 LDC I,1
 LDC I,8
 CSP  WRI
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 3,12
 LDC I,12
 LOC    30
 LDC I,12
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,2,140
 LDC I,2
 CSP  WRI
 CSP  EIO
 LDC I,1
 LOC    40
 CHK I,1,4
 STR I,3,8
 LOD I,2,140
 CHK I,1,4
 STR I,3,36
 LOD I,3,8
 LOD I,3,36
 LEQ I
 FJP L4
L3 LAB
 MST 2,8,8
 LOC    50
 LDA 3,24
 PAR A
 LDA 2,108
 LOD I,3,8
 CHK J,1,4
 DEC I,1
 IXA 8
 PAR A
 CUP P,4,CVOS$032
 LDA 1,15
 LOC    60
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 3,24
 LDC I,12
 LDC I,12
 CSP  WRS
 CSP  EIO
 LOD I,3,8
 LOC    70
 LOD I,3,36
 NEQ I
 FJP L4
 LOD I,3,8
 INC I,1
 CHK I,1,4
 STR I,3,8
 UJP L3
L4 LAB
 LDA 1,15
 CSP  SIO
 LOC    80
 CSP  WLN
 CSP  EIO
 LDC I,0
 CHK I,0,4
 STR I,2,140
L2 LAB
 RET P
L1 DEF        40
 SST P  OPEN$182       3       0       0       0       0
 LOC     0
OPEN$182 ENT P,3,L1  OPEN_TXT       1 1 1
 LDC I,0
 CHK I,0,4
 STR I,2,140
 RET P
L1 DEF         8
 SST P  CLOSE183       3       0       0       0       0
 LOC     0
CLOSE183 ENT P,3,L1  CLOSE_TXT      1 1 1
 MST 3,0,0
 CUP P,0,CLEAR181
 RET P
L1 DEF         8
 SST P  OUT$T184       3       8       8       0       8
 LOC     0
OUT$T184 ENT P,3,L1  OUT_TXT        1 1 1
 LDA 3,16
 LOD A,3,12
 MOV 8
 LOD I,2,140
 LDC I,4
 GEQ I
 LOD A,3,8
 IND I,0
 LOD I,2,148
 LOC    10
 NEQ I
 IOR
 FJP L2
 MST 3,0,0
 CUP P,0,CLEAR181
L2 LAB
 LOD I,2,140
 LDC I,0
 EQU I
 FJP L3
 LOD A,3,8
 LOC    20
 IND I,0
 CHK I,0,1073741823
 STR I,2,144
 LOD A,3,8
 IND I,0
 CHK I,0,1073741823
 STR I,2,148
L3 LAB
 LOD I,2,140
 LDC I,1
 ADI
 LOC    30
 CHK I,0,4
 STR I,2,140
 LDA 2,108
 LOD I,2,140
 CHK J,1,4
 DEC I,1
 IXA 8
 LDA 3,16
 MOV 8
 LOD A,3,8
 LOC    40
 LOD A,3,8
 IND I,0
 LDC I,4
 ADI
 CHK I,0,1073741823
 STO I
 LOD A,3,8
 IND I,0
 CHK I,0,1073741823
 STR I,2,148
 LOC    50
 RET P
L1 DEF        24
 SST P  OPEN$185       3       0       0       0       0
 LOC     0
OPEN$185 ENT P,3,L1  OPEN_SEG       1 1 1
 RET P
L1 DEF         8
 SST P  CLOSE186       3       0       0       0       0
 LOC     0
CLOSE186 ENT P,3,L1  CLOSE_SEG      1 1 1
 RET P
L1 DEF         8
 SST P  OUT$S187       3      24      28      24      24
 LOC     0
OUT$S187 ENT P,3,L1  OUT_SEG        1 1 1
 LDA 3,49
 LOD A,3,8
 MOV 8
 LDA 3,32
 LOD A,3,28
 MOV 17
 MST 2,8,8
 LDA 3,72
 PAR A
 LOC    10
 LOD I,3,20
 CHK I,0,34359738367
 PAR I
 CUP P,4,CVOS$033
 MST 2,8,8
 LDA 3,60
 PAR A
 LOD I,3,24
 CHK I,0,34359738367
 PAR I
 LOC    20
 CUP P,4,CVOS$033
 LDA 1,15
 CSP  SIO
 LCA 'SEG '
 LDC I,4
 LDC I,4
 CSP  WRS
 LDA 3,49
 LDC I,8
 LDC I,8
 LOC    30
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,35700
 LOD I,3,12
 CHK J,0,2
 IXA 4
 LDC I,4
 LDC I,4
 LOC    40
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,16
 LDC I,8
 CSP  WRI
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOC    50
 LDA 3,72
 LDC I,12
 LDC I,12
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 3,60
 LDC I,12
 LDC I,12
 LOC    60
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 3,32
 LDC I,17
 LDC I,17
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC    70
 RET P
L1 DEF        84
 SST P  OPEN$188       3       0       0       0       0
 LOC     0
OPEN$188 ENT P,3,L1  OPEN_ESD       1 1 1
 RET P
L1 DEF         8
 SST P  CLOSE189       3       0       0       0       0
 LOC     0
CLOSE189 ENT P,3,L1  CLOSE_ESD      1 1 1
 RET P
L1 DEF         8
 SST P  OUT$E190       3      20       8      12      20
 LOC     0
OUT$E190 ENT P,3,L1  OUT_ESD        1 1 1
 LDA 3,28
 LOD A,3,8
 MOV 8
 MST 2,8,8
 LDA 3,36
 PAR A
 LOD I,3,20
 CHK I,0,34359738367
 PAR I
 LOC    10
 CUP P,4,CVOS$033
 LDA 1,15
 CSP  SIO
 LCA 'ESD '
 LDC I,4
 LDC I,4
 CSP  WRS
 LDA 3,28
 LDC I,8
 LDC I,8
 LOC    20
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,35712
 LOD I,3,12
 CHK J,0,3
 IXA 4
 LDC I,4
 LDC I,4
 LOC    30
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,16
 LDC I,8
 CSP  WRI
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOC    40
 LDA 3,36
 LDC I,12
 LDC I,12
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,24
 LDC I,8
 CSP  WRI
 LOC    50
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF        48
 SST P  OPEN$191       3       0       0       0       0
 LOC     0
OPEN$191 ENT P,3,L1  OPEN_ESR       1 1 1
 RET P
L1 DEF         8
 SST P  CLOSE192       3       0       0       0       0
 LOC     0
CLOSE192 ENT P,3,L1  CLOSE_ESR      1 1 1
 RET P
L1 DEF         8
 SST P  OUT$E193       3      12       8       0      12
 LOC     0
OUT$E193 ENT P,3,L1  OUT_ESR        1 1 1
 LDA 3,20
 LOD A,3,8
 MOV 8
 LDA 1,15
 CSP  SIO
 LCA 'ESR '
 LDC I,4
 LDC I,4
 CSP  WRS
 LOC    10
 LDA 3,20
 LDC I,8
 LDC I,8
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,35728
 LOD I,3,12
 CHK J,0,3
 LOC    20
 IXA 4
 LDC I,4
 LDC I,4
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,16
 LDC I,8
 CSP  WRI
 LOC    30
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF        28
 SST P  OPEN$194       3       0       0       0       0
 LOC     0
OPEN$194 ENT P,3,L1  OPEN_RLD       1 1 1
 RET P
L1 DEF         8
 SST P  CLOSE195       3       0       0       0       0
 LOC     0
CLOSE195 ENT P,3,L1  CLOSE_RLD      1 1 1
 RET P
L1 DEF         8
 SST P  OUT$R196       3      24       8      12      24
 LOC     0
OUT$R196 ENT P,3,L1  OUT_RLD        1 1 1
 LDA 3,32
 LOD A,3,8
 MOV 8
 MST 2,8,8
 LDA 3,40
 PAR A
 LOD I,3,24
 CHK I,0,34359738367
 PAR I
 LOC    10
 CUP P,4,CVOS$033
 LDA 1,15
 CSP  SIO
 LCA 'RLD '
 LDC I,4
 LDC I,4
 CSP  WRS
 LDA 3,32
 LDC I,8
 LDC I,8
 LOC    20
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,35744
 LOD I,3,12
 CHK J,0,2
 IXA 1
 IND C,0
 LDC I,1
 LOC    30
 CSP  WRC
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,35747
 LOD I,3,16
 CHK J,0,1
 IXA 2
 LDC I,2
 LDC I,2
 LOC    40
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,20
 LDC I,8
 CSP  WRI
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOC    50
 LDA 3,40
 LDC I,12
 LDC I,12
 CSP  WRS
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,3,28
 LDC I,8
 CSP  WRI
 LOC    60
 CSP  WLN
 CSP  EIO
 RET P
L1 DEF        52
 LOC     0
GEN$S177 ENT P,2,L1  GEN_SEGMENT    1 1 1
 LOD A,1,488
 CHK A,-1,0
 STR A,2,24
L2 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L3
 MST 2,8,8
 LOD A,2,24
 LOC    10
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,1,464
 PAR I
 CUP P,4,FIXOP048
 LOD A,2,24
 CHK A,0,0
 IND A,0
 LOC    20
 CHK A,-1,0
 STR A,2,24
 UJP L2
L3 LAB
 LOD A,1,476
 CHK A,-1,0
 STR A,2,24
 LOD I,1,464
 NGI
 STR I,2,32
L4 LAB
 LOD A,2,24
 LOC    30
 LDC N
 NEQ A
 FJP L5
 MST 2,8,8
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,2,32
 LOC    40
 PAR I
 CUP P,4,FIXOP048
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L4
L5 LAB
 LOD A,1,460
 CHK A,-1,0
 LOC    50
 STR A,2,24
L6 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L7
 MST 2,8,8
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 LOC    60
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 CUP A,4,PTR$O039
 CHK A,-1,0
 STR A,2,8
 LOD A,2,8
 LDC N
 NEQ A
 LOC    70
 NOT
 FJP L8
 MST 2,4,4
 LCA 'GEN_SEGME001'
 PAR A
 CUP P,2,ASSER003
L8 LAB
 MST 2,12,12
 LOD A,2,8
 CHK A,0,0
 INC A,4
 LOC    80
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 STR I,2,28
 LOD I,2,28
 LOC    90
 NGI
 LDC I,8
 MPI
 STR I,2,28
 MST 2,16,16
 LOD A,2,8
 CHK A,0,0
 INC A,4
 PAR A
 LDC I,11
 LOC   100
 CHK I,0,35
 PAR I
 LDC I,25
 CHK I,1,36
 PAR I
 LOD I,2,28
 PAR I
 CUP P,8,PUTFI022
 LOD A,2,24
 CHK A,0,0
 LOC   110
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L6
L7 LAB
 LDC I,0
 CHK I,0,196
 STR I,2,36
 LDC I,196
 CHK I,0,196
 STR I,2,156
 LOC   120
 LOD I,2,36
 LOD I,2,156
 LEQ I
 FJP L10
L9 LAB
 LDA 1,500
 LOD I,2,36
 CHK J,0,196
 IXA 4
 IND A,0
 CHK A,-1,0
 LOC   130
 STR A,2,40
L11 LAB
 LOD A,2,40
 LDC N
 NEQ A
 FJP L12
 LOD A,2,40
 CHK A,0,0
 IND B,8
 NOT
 FJP L13
 LOC   140
 LOD A,2,40
 CHK A,0,0
 IND I,0
 STR I,1,332
 MST 2,4,4
 LDC I,35
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L13 LAB
 LOD A,2,40
 LOC   150
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 STR A,2,40
 UJP L11
L12 LAB
 LOD I,2,36
 LOD I,2,156
 NEQ I
 FJP L10
 LOD I,2,36
 LOC   160
 INC I,1
 CHK I,0,196
 STR I,2,36
 UJP L9
L10 LAB
 LOD I,1,39472
 LDC I,1
 LDC I,1
 SBI
 NEQ I
 FJP L14
 LOC   170
 MST 2,4,4
 LDC I,62
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L14 LAB
 LOD I,1,39924
 LDC I,0
 NEQ I
 FJP L15
 MST 2,4,4
 LOC   180
 LDC I,40
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L15 LAB
 MST 2,0,0
 CUP P,0,CODE$163
 LOD A,1,448
 CHK A,-1,0
 STR A,2,24
L16 LAB
 LOD A,2,24
 LOC   190
 LDC N
 NEQ A
 FJP L17
 MST 3,8,8
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,1,312
 LOC   200
 PAR I
 CUP P,4,FIXDI178
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L16
L17 LAB
 LOD I,1,312
 LOD I,1,336
 LOC   210
 LDC I,4
 MPI
 ADI
 STR I,1,312
 LOD A,1,436
 CHK A,-1,0
 STR A,2,24
L18 LAB
 LOD A,2,24
 LDC N
 NEQ A
 LOC   220
 FJP L19
 MST 3,8,8
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,1,312
 PAR I
 CUP P,4,FIXDI178
 LOC   230
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L18
L19 LAB
 LOD I,1,312
 LOD I,1,392
 LDC I,4
 MPI
 LOC   240
 ADI
 STR I,1,312
 LOD A,1,424
 CHK A,-1,0
 STR A,2,24
L20 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L21
 MST 3,8,8
 LOC   250
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,1,312
 PAR I
 CUP P,4,FIXDI178
 LOD A,2,24
 CHK A,0,0
 LOC   260
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L20
L21 LAB
 LOD I,1,312
 LOD I,1,380
 LDC I,4
 MPI
 ADI
 STR I,1,312
 LOC   270
 LOD A,1,412
 CHK A,-1,0
 STR A,2,24
L22 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L23
 MST 3,8,8
 LOD A,2,24
 CHK A,0,0
 LOC   280
 IND A,4
 CHK A,-1,0
 PAR A
 LOD I,1,312
 PAR I
 CUP P,4,FIXDI178
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 LOC   290
 STR A,2,24
 UJP L22
L23 LAB
 LOD I,1,312
 LOD I,1,356
 LDC I,4
 MPI
 ADI
 STR I,1,312
 LOD I,1,312
 STR I,2,56
 LOC   300
 LOD B,1,305
 FJP L24
 LOD A,1,324
 CHK A,-1,0
 STR A,2,20
 LOD I,1,4860
 STR I,2,60
L25 LAB
 LOD A,2,20
 LDC N
 NEQ A
 LOC   310
 FJP L26
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,72
 LDA 2,100
 LOD A,2,20
 LOC   320
 CHK A,0,0
 INC A,4
 MOV 8
 LDA 1,23728
 LOD I,2,72
 CHK J,0,285
 IXA 4
 IND I,0
 ORD
 CHK I,0,4
 LOC   330
 XJP L27
L31 LAB
 LOD I,2,72
 LDC I,1
 EQU I
 FJP L32
 MST 2,8,8
 LDA 2,92
 PAR A
 LOD I,2,60
 PAR I
 LOC   340
 CUP P,4,INTEG025
 MST 2,8,8
 LDA 1,368
 PAR A
 LDA 2,92
 PAR A
 CUP P,4,EMIT$102
L32 LAB
 UJP L30
L33 LAB
 LOD I,2,60
 LDC I,4
 LOC   350
 ADI
 STR I,2,60
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 LOC   360
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L34
 LOD I,2,60
 LDC I,4
 ADI
 STR I,2,60
L34 LAB
 MST 2,12,12
 LOC   370
 LDA 2,100
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 LOC   380
 EQU I
 FJP L35
 LOD I,2,60
 LDC I,4
 ADI
 STR I,2,60
L35 LAB
 UJP L30
L36 LAB
 LOD I,2,60
 LDC I,4
 ADI
 LOC   390
 STR I,2,60
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LOC   400
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L37
 LOD I,2,60
 LDC I,4
 ADI
 STR I,2,60
L37 LAB
 MST 2,12,12
 LDA 2,100
 LOC   410
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 LOC   420
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LOC   430
 LDC I,1
 EQU I
 AND
 FJP L38
 LOD I,2,60
 LDC I,4
 ADI
 STR I,2,60
L38 LAB
 UJP L30
L27 DEF         0
L28 DEF         4
L29 LAB
 UJP L31
 LOC   440
 UJP L33
 UJP L36
 UJP L33
 UJP L33
L30 LAB
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 LOC   450
 STR A,2,20
 UJP L25
L26 LAB
 LOD I,1,312
 LOD I,1,368
 LDC I,4
 MPI
 ADI
 STR I,1,312
L24 LAB
 LOD B,1,304
 FJP L39
 LOC   460
 LDA 1,13
 CSP  SIO
 LCA '**************************  ;START OF  '
 LDC I,39
 LDC I,39
 CSP  WRS
 LDA 1,5036
 LDC I,8
 LDC I,8
 CSP  WRS
 LOC   470
 LCA '  '
 LDC I,2
 LDC I,2
 CSP  WRS
 LDA 1,5012
 LDC I,8
 LDC I,8
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   480
 LOD A,1,324
 CHK A,-1,0
 STR A,2,20
 LOD I,1,4860
 STR I,2,60
L40 LAB
 LOD A,2,20
 LDC N
 NEQ A
 FJP L41
 MST 2,8,8
 LOC   490
 LDA 2,60
 PAR A
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP P,4,DISAS007
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 LOC   500
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,20
 UJP L40
L41 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC   510
 LDC I,12
 CHR
 LDC I,1
 CSP  WRC
 CSP  EIO
L39 LAB
 LOD A,1,324
 CHK A,-1,0
 STR A,2,20
L42 LAB
 LOD A,2,20
 LDC N
 LOC   520
 NEQ A
 FJP L43
 LDA 1,40368
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 LOC   530
 LDA 1,40368
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,1
 LOC   540
 ADI
 STO I
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,20
 UJP L42
L43 LAB
 LOC   550
 LOD I,1,312
 STR I,2,48
 LDC I,0
 STR I,2,68
 LOD A,1,496
 CHK A,-1,0
 STR A,2,44
L44 LAB
 LOD A,2,44
 LDC N
 NEQ A
 LOC   560
 FJP L45
 LOD I,2,68
 LOD A,2,44
 CHK A,0,0
 IND I,8
 ADI
 STR I,2,68
 LOD A,2,44
 CHK A,0,0
 IND A,20
 LOC   570
 CHK A,-1,0
 STR A,2,44
 UJP L44
L45 LAB
 MST 3,16,16
 LDC I,1
 PAR I
 LOD I,2,48
 LDC I,4
 DVI
 PAR I
 LOC   580
 LOD I,1,492
 PAR I
 LDC I,2
 LOD I,2,68
 MPI
 PAR I
 CUP P,8,OPEN$179
 MST 3,0,0
 CUP P,0,OPEN$185
 MST 3,24,24
 LOC   590
 LDA 1,5036
 PAR A
 LDC I,0
 CHK I,0,2
 PAR I
 LDC I,1
 CHK I,1,1000
 PAR I
 LDC I,0
 CHK I,0,1073741823
 LOC   600
 PAR I
 LOD I,2,48
 LDC I,0
 SBI
 PAR I
 LCA 'IN RA            '
 PAR A
 CUP P,12,OUT$S187
 MST 3,0,0
 CUP P,0,CLOSE186
 LOC   610
 MST 3,0,0
 CUP P,0,OPEN$188
 MST 3,20,20
 LDA 1,5036
 PAR A
 LDC I,1
 CHK I,0,3
 PAR I
 LDC I,1
 CHK I,1,1000
 LOC   620
 PAR I
 LDC I,0
 CHK I,0,1073741823
 PAR I
 LDC I,1
 CHK I,1,1000
 PAR I
 CUP P,10,OUT$E190
 MST 3,0,0
 CUP P,0,CLOSE189
 LOC   630
 MST 3,0,0
 CUP P,0,OPEN$182
 LDC I,0
 STR I,1,312
 MST 2,12,12
 LDA 2,84
 PAR A
 LDA 2,76
 PAR A
 LDA 1,5036
 LOC   640
 PAR A
 CUP P,6,ZSYMB024
 MST 3,8,8
 LDA 1,312
 PAR A
 LDA 2,84
 PAR A
 CUP P,4,OUT$T184
 MST 3,8,8
 LDA 1,312
 LOC   650
 PAR A
 LDA 2,76
 PAR A
 CUP P,4,OUT$T184
 LDA 2,92
 LDA 1,4568
 MOV 8
 LOD B,1,305
 FJP L46
 MST 2,16,16
 LOC   660
 LDA 2,92
 PAR A
 LDC I,0
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 LDC I,1
 PAR I
 LOC   670
 CUP P,8,PUTFI022
L46 LAB
 MST 2,16,16
 LDA 2,92
 PAR A
 LDC I,1
 CHK I,0,35
 PAR I
 LDC I,5
 CHK I,1,36
 PAR I
 LOC   680
 LDA 1,35500
 LOD I,1,5032
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 PAR I
 CUP P,8,PUTFI022
 MST 3,8,8
 LDA 1,312
 LOC   690
 PAR A
 LDA 2,92
 PAR A
 CUP P,4,OUT$T184
 MST 2,8,8
 LDA 2,92
 PAR A
 LOD I,2,56
 PAR I
 CUP P,4,INTEG025
 LOC   700
 MST 3,8,8
 LDA 1,312
 PAR A
 LDA 2,92
 PAR A
 CUP P,4,OUT$T184
 LOD A,1,324
 CHK A,-1,0
 STR A,2,20
 LOD I,1,312
 LOC   710
 LOD I,1,4860
 EQU I
 NOT
 FJP L47
 MST 2,4,4
 LCA 'GEN_SEGME002'
 PAR A
 CUP P,2,ASSER003
L47 LAB
L48 LAB
 LOD A,2,20
 LDC N
 LOC   720
 NEQ A
 FJP L49
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,16
 LOD I,1,312
 LOC   730
 STR I,2,52
 MST 2,4,4
 LOD A,2,20
 CHK A,-1,0
 PAR A
 CUP I,2,GETS1008
 CHK I,0,285
 STR I,2,72
 LDA 2,100
 LOD A,2,20
 LOC   740
 CHK A,0,0
 INC A,4
 MOV 8
 LDA 1,23728
 LOD I,2,72
 CHK J,0,285
 IXA 4
 IND I,0
 ORD
 CHK I,0,4
 LOC   750
 XJP L50
L54 LAB
 UJP L53
L55 LAB
 MST 3,8,8
 LDA 1,312
 PAR A
 LDA 2,100
 PAR A
 CUP P,4,OUT$T184
 LOD I,2,52
 LDC I,4
 LOC   760
 ADI
 STR I,2,52
 LOD A,2,20
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
 MST 2,12,12
 LDA 2,100
 PAR A
 LOC   770
 LDC I,24
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L56
 LOC   780
 LOD I,2,52
 LDC I,4
 ADI
 STR I,2,52
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,12
 CHK A,0,0
 INC A,4
 LOC   790
 PAR A
 CUP P,4,OUT$T184
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
L56 LAB
 MST 2,12,12
 LDA 2,100
 PAR A
 LOC   800
 LDC I,12
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L57
 LOC   810
 LOD I,2,52
 LDC I,4
 ADI
 STR I,2,52
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,12
 CHK A,0,0
 INC A,4
 LOC   820
 PAR A
 CUP P,4,OUT$T184
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
L57 LAB
 UJP L53
L58 LAB
 MST 3,8,8
 LDA 1,312
 LOC   830
 PAR A
 LDA 2,100
 PAR A
 CUP P,4,OUT$T184
 LOD I,2,52
 LDC I,4
 ADI
 STR I,2,52
 LOD A,2,20
 CHK A,0,0
 LOC   840
 IND A,0
 CHK A,-1,0
 STR A,2,12
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,11
 CHK I,0,35
 PAR I
 LDC I,1
 LOC   850
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,0
 EQU I
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,24
 CHK I,0,35
 LOC   860
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 AND
 FJP L59
 LOD I,2,52
 LOC   870
 LDC I,4
 ADI
 STR I,2,52
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LOC   880
 CUP P,4,OUT$T184
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
L59 LAB
 MST 2,12,12
 LDA 2,100
 PAR A
 LDC I,12
 LOC   890
 CHK I,0,35
 PAR I
 LDC I,1
 CHK I,1,36
 PAR I
 CUP I,6,GETFI020
 LDC I,1
 EQU I
 FJP L60
 LOD I,2,52
 LOC   900
 LDC I,4
 ADI
 STR I,2,52
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,12
 CHK A,0,0
 INC A,4
 PAR A
 LOC   910
 CUP P,4,OUT$T184
 LOD A,2,12
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,12
L60 LAB
 UJP L53
L50 DEF         0
L51 DEF         4
L52 LAB
 UJP L54
 UJP L55
 UJP L58
 LOC   920
 UJP L55
 UJP L55
L53 LAB
 LOD A,2,16
 CHK A,-1,0
 STR A,2,20
 LOD I,1,312
 LOD I,2,52
 EQU I
 NOT
 FJP L61
 LOC   930
 MST 2,4,4
 LCA 'GEN_SEGME003'
 PAR A
 CUP P,2,ASSER003
L61 LAB
 UJP L48
L49 LAB
 LOD A,1,344
 CHK A,-1,0
 STR A,2,24
L62 LAB
 LOD A,2,24
 LDC N
 LOC   940
 NEQ A
 FJP L63
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 CUP P,4,OUT$T184
 LOC   950
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L62
L63 LAB
 LOD A,1,400
 CHK A,-1,0
 STR A,2,24
L64 LAB
 LOD A,2,24
 LOC   960
 LDC N
 NEQ A
 FJP L65
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,24
 CHK A,0,0
 INC A,4
 PAR A
 LOC   970
 CUP P,4,OUT$T184
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L64
L65 LAB
 LOD A,1,388
 CHK A,-1,0
 STR A,2,24
L66 LAB
 LOC   980
 LOD A,2,24
 LDC N
 NEQ A
 FJP L67
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,24
 CHK A,0,0
 INC A,4
 LOC   990
 PAR A
 CUP P,4,OUT$T184
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L66
L67 LAB
 LOD A,1,364
 CHK A,-1,0
 LOC  1000
 STR A,2,24
L68 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L69
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,24
 CHK A,0,0
 LOC  1010
 INC A,4
 PAR A
 CUP P,4,OUT$T184
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L68
L69 LAB
 LOD I,1,312
 LOC  1020
 LOD I,2,56
 EQU I
 NOT
 FJP L70
 MST 2,4,4
 LCA 'GEN_SEGME004'
 PAR A
 CUP P,2,ASSER003
L70 LAB
 LOD A,1,376
 CHK A,-1,0
 LOC  1030
 STR A,2,24
L71 LAB
 LOD A,2,24
 LDC N
 NEQ A
 FJP L72
 MST 3,8,8
 LDA 1,312
 PAR A
 LOD A,2,24
 CHK A,0,0
 LOC  1040
 INC A,4
 PAR A
 CUP P,4,OUT$T184
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L71
L72 LAB
 LOD I,1,312
 LOC  1050
 LOD I,2,48
 EQU I
 NOT
 FJP L73
 MST 2,4,4
 LCA 'GEN_SEGME005'
 PAR A
 CUP P,2,ASSER003
L73 LAB
 MST 3,0,0
 CUP P,0,CLOSE183
 LOC  1060
 MST 3,0,0
 CUP P,0,OPEN$191
 LDC I,1
 STR I,2,64
 LOD A,1,496
 CHK A,-1,0
 STR A,2,44
L74 LAB
 LOD A,2,44
 LDC N
 NEQ A
 LOC  1070
 FJP L75
 MST 3,12,12
 LOD A,2,44
 CHK A,0,0
 PAR A
 LDC I,0
 CHK I,0,3
 PAR I
 LOD I,2,64
 CHK I,1,1000
 LOC  1080
 PAR I
 CUP P,6,OUT$E193
 LOD I,2,64
 LDC I,1
 ADI
 STR I,2,64
 LOD A,2,44
 CHK A,0,0
 IND A,20
 CHK A,-1,0
 LOC  1090
 STR A,2,44
 UJP L74
L75 LAB
 MST 3,0,0
 CUP P,0,CLOSE192
 MST 3,0,0
 CUP P,0,OPEN$194
 LDC I,1
 STR I,2,64
 LOD A,1,496
 CHK A,-1,0
 LOC  1100
 STR A,2,44
L76 LAB
 LOD A,2,44
 LDC N
 NEQ A
 FJP L77
 LOD A,2,44
 CHK A,0,0
 IND A,16
 CHK A,-1,0
 STR A,2,24
L78 LAB
 LOC  1110
 LOD A,2,24
 LDC N
 NEQ A
 FJP L79
 MST 2,12,12
 LOD A,2,24
 CHK A,0,0
 IND A,4
 CHK A,0,0
 INC A,4
 LOC  1120
 PAR A
 LDC I,6
 CHK I,0,35
 PAR I
 LDC I,30
 CHK I,1,36
 PAR I
 CUP I,6,GETSI021
 NGI
 LOD I,1,4860
 LOC  1130
 ADI
 LDC I,4
 ADI
 CHK I,0,1073741823
 STR I,2,152
 MST 3,24,24
 LOD A,2,44
 CHK A,0,0
 PAR A
 LDC I,1
 LOC  1140
 CHK I,0,2
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDC I,1
 CHK I,1,1000
 PAR I
 LOD I,2,152
 CHK I,0,1073741823
 LOC  1150
 PAR I
 LOD I,2,64
 CHK I,1,1000
 PAR I
 CUP P,12,OUT$R196
 MST 3,24,24
 LDA 1,5036
 PAR A
 LDC I,0
 CHK I,0,2
 LOC  1160
 PAR I
 LDC I,1
 CHK I,0,1
 PAR I
 LDC I,1
 CHK I,1,1000
 PAR I
 LOD I,2,152
 CHK I,0,1073741823
 PAR I
 LOC  1170
 LDC I,1
 CHK I,1,1000
 PAR I
 CUP P,12,OUT$R196
 LOD A,2,24
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,24
 UJP L78
L79 LAB
 LOC  1180
 LOD I,2,64
 LDC I,1
 ADI
 STR I,2,64
 LOD A,2,44
 CHK A,0,0
 IND A,20
 CHK A,-1,0
 STR A,2,44
 UJP L76
L77 LAB
 LOC  1190
 MST 3,0,0
 CUP P,0,CLOSE195
 MST 3,0,0
 CUP P,0,CLOSE180
 LDC N
 CHK A,-1,0
 STR A,1,288
 LDC N
 CHK A,-1,0
 STR A,1,328
 LOC  1200
 LDC I,1
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,1,39472
 LDC I,0
 CHK I,0,15
 STR I,1,39924
 LOD A,1,5052
 RST
 LOC  1210
 RET P
L1 DEF       160
 SST P  SAVE$197       2       0       0     116       0
 LOC     0
SAVE$197 ENT P,2,L1  SAVE_PARMREG   1 1 1
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,2,124
 LOD A,2,124
 IND I,28
 LDC I,4
 DVI
 LOC    10
 LDC I,1
 SBI
 CHK I,-1,9
 STR I,2,8
 LOD I,2,8
 LDC I,0
 GEQ I
 FJP L2
 MST 2,12,12
 LDA 2,68
 LOC    20
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,2,124
 IND I,24
 LOD A,2,124
 IND I,40
 ADI
 LOD A,2,124
 LOC    30
 IND I,44
 ADI
 NGI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,8,8
 LDA 2,12
 PAR A
 LDA 1,35532
 LOC    40
 LDC I,0
 CHK J,0,9
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 1,31380
 LOD I,2,8
 LOC    50
 LDC I,1
 ADI
 CHK J,1,32
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,68
 PAR A
 LOC    60
 LDA 2,12
 PAR A
 CUP P,6,EMITX077
L2 LAB
 RET P
L1 DEF       128
 SST P  RESTO198       2       0       0     116       0
 LOC     0
RESTO198 ENT P,2,L1  RESTORE_PARM   1 1 1
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,2,124
 LOD A,2,124
 IND I,28
 LDC I,4
 DVI
 LOC    10
 LDC I,1
 SBI
 CHK I,-1,9
 STR I,2,8
 LOD I,2,8
 LDC I,0
 GEQ I
 FJP L2
 MST 2,8,8
 LDA 2,68
 LOC    20
 PAR A
 LDA 1,35532
 LDC I,0
 CHK J,0,9
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOC    30
 LDA 2,12
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,2,124
 IND I,24
 LOD A,2,124
 IND I,40
 ADI
 LOC    40
 LOD A,2,124
 IND I,44
 ADI
 NGI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LDA 1,31380
 LOD I,2,8
 LOC    50
 LDC I,1
 ADI
 CHK J,1,32
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,68
 PAR A
 LOC    60
 LDA 2,12
 PAR A
 CUP P,6,EMITX077
L2 LAB
 RET P
L1 DEF       128
 SST P  CALLS199       2       0       0     316       0
 SST P  GENCA200       3       4       0     124       4
 LOC     0
GENCA200 ENT P,3,L1  GENCALL        1 1 1
 MST 2,8,8
 LDA 3,80
 PAR A
 LDA 1,35500
 LDC I,2
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 LOC    10
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 3,24
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOD I,1,4860
 LOC    20
 CHK I,0,1073741823
 PAR I
 CUP P,6,EXT$R074
 LDC I,4
 CHK I,0,5
 STR I,3,72
 LDA 3,12
 LCA '$PCSP   '
 MOV 8
 LDC I,8
 LOC    30
 CHK I,1,8
 STR I,3,20
 LDA 3,12
 LDC I,6
 CHK J,1,8
 DEC I,1
 IXA 1
 LDA 1,100
 LDC I,1
 CHK J,1,8
 LOC    40
 DEC I,1
 IXA 1
 IND C,0
 CHK I,0,255
 STO C
 LDA 3,12
 LDC I,7
 CHK J,1,8
 DEC I,1
 IXA 1
 LOC    50
 LDA 1,100
 LDC I,2
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 CHK I,0,255
 STO C
 LDA 3,12
 LDC I,8
 LOC    60
 CHK J,1,8
 DEC I,1
 IXA 1
 LDA 1,100
 LDC I,3
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 CHK I,0,255
 LOC    70
 STO C
 MST 2,8,8
 LDA 3,76
 PAR A
 LDA 3,12
 PAR A
 CUP P,4,UPD$P132
 MST 2,8,8
 LOD I,3,8
 CHK I,-1,30
 LOC    80
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,LOADS119
 MST 2,20,20
 LDC I,65
 CHK I,0,285
 PAR I
 LDC I,0
 LOC    90
 CHK I,0,1
 PAR I
 LDA 3,80
 PAR A
 LDA 3,24
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 LOC   100
 RET P
L1 DEF       136
 SST P  ONE$A201       3       8       0       0       8
 LOC     0
ONE$A201 ENT P,3,L1  ONE_ARG        1 1 1
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOD I,3,8
 NEQ I
 LOC    10
 AND
 FJP L2
 MST 2,0,0
 CUP P,0,MOVE$085
L2 LAB
 MST 2,12,12
 LDA 1,4748
 PAR A
 LOD I,3,8
 CHK I,-1,30
 PAR I
 LOC    20
 LOD I,3,12
 CHK I,0,15
 PAR I
 CUP P,6,COERC140
 MST 2,4,4
 LOD I,3,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 RET P
L1 DEF        16
 SST P  TWO$S202       3      16       0      56      16
 LOC     0
TWO$S202 ENT P,3,L1  TWO_SINGLE_A   1 1 1
 LDA 1,30932
 LOD I,3,16
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 LDA 1,30932
 LOD I,3,20
 CHK J,0,15
 LOC    10
 IXA 1
 IND B,0
 NOT
 AND
 NOT
 FJP L2
 MST 2,4,4
 LCA 'TWO_SINGL001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOC    20
 MST 2,8,8
 LOD I,3,8
 CHK I,-1,30
 PAR I
 LOD I,3,16
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LDA 1,35308
 LDC I,6
 LOC    30
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOD I,3,8
 EQU I
 LOD I,1,35492
 LOD I,3,12
 EQU I
 LOC    40
 IOR
 NOT
 AND
 FJP L3
 MST 2,0,0
 CUP P,0,MOVE$085
L3 LAB
 MST 2,8,8
 LDA 3,24
 PAR A
 LDC I,6
 LOC    50
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 3,24
 PAR A
 LOD I,3,12
 CHK I,-1,30
 PAR I
 LOC    60
 LOD I,3,20
 CHK I,0,15
 PAR I
 CUP P,6,COERC140
 MST 2,8,8
 LDA 1,4748
 PAR A
 LOD I,3,8
 CHK I,-1,30
 PAR I
 LOC    70
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,3,8
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,4,4
 LOD I,3,12
 CHK I,-1,30
 PAR I
 LOC    80
 CUP P,2,FREED090
 RET P
L1 DEF        80
 SST P  CHECK203       3       4       0       0       4
 LOC     0
CHECK203 ENT P,3,L1  CHECKFILADR    1 1 1
 LDA 1,35760
 LOD I,3,8
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 NEQ I
 FJP L2
 LOC    10
 MST 2,4,4
 LDC I,14
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L3
L2 LAB
 MST 2,4,4
 LOD I,3,8
 CHK I,-1,30
 PAR I
 LOC    20
 CUP B,2,DATUM118
 NOT
 FJP L4
 MST 2,4,4
 LDC I,57
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L4 LAB
L3 LAB
 RET P
L1 DEF        12
 SST P  ALLOC204       3       4       0      56       4
 LOC     0
ALLOC204 ENT P,3,L1  ALLOC_EXCESS   1 1 1
 MST 2,8,8
 LDA 3,12
 PAR A
 LOD I,3,8
 LDC I,4
 MPI
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LOC    10
 LDC I,10
 CHK I,0,285
 PAR I
 LDA 1,4804
 PAR A
 LDA 3,12
 PAR A
 CUP P,6,EMITX077
 RET P
L1 DEF        68
 SST P  EXCES205       3      16       0      56      16
 LOC     0
EXCES205 ENT P,3,L1  EXCESS_ARG     1 1 1
 MST 2,12,12
 LDA 3,24
 PAR A
 LDC I,30
 CHK I,0,31
 PAR I
 LOD I,3,12
 LOD I,3,8
 SBI
 LOC    10
 LDC I,1
 ADI
 LDC I,4
 MPI
 NGI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LDA 3,24
 LOC    20
 PAR A
 LOD I,3,16
 CHK I,-1,30
 PAR I
 LOD I,3,20
 CHK I,0,15
 PAR I
 CUP P,6,COERC140
 MST 2,4,4
 LOD I,3,16
 LOC    30
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 RET P
L1 DEF        80
 SST P  DEALL206       3       4       0      56       4
 LOC     0
DEALL206 ENT P,3,L1  DEALLOC_EXCE   1 1 1
 MST 2,8,8
 LDA 3,12
 PAR A
 LOD I,3,8
 LDC I,4
 MPI
 PAR I
 CUP P,4,IMM$O064
 MST 2,16,16
 LOC    10
 LDC I,265
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,3
 PAR I
 LDA 1,4804
 PAR A
 LDA 3,12
 PAR A
 LOC    20
 CUP P,8,EMITT106
 RET P
L1 DEF        68
 SST P  CHECK207       3       4       0       4       4
 LOC     0
CHECK207 ENT P,3,L1  CHECK_REF_PA   1 1 1
 LDA 1,35760
 LOD I,3,8
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,16
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 LOC    10
 IXA 48
 STR A,3,20
 LOD A,3,16
 IND I,4
 LDC I,2
 EQU I
 NOT
 FJP L2
 MST 2,4,4
 LCA 'CHECK_REF001'
 LOC    20
 PAR A
 CUP P,2,ASSER003
L2 LAB
 LOD A,3,20
 IND I,32
 LOD A,3,20
 IND I,16
 SBI
 STR I,3,12
 LOD A,3,16
 IND I,72
 LOC    30
 LDC I,0
 EQU I
 LOD A,3,16
 IND I,60
 LDC I,1
 EQU I
 AND
 LOD A,3,16
 IND I,68
 LOD I,1,5032
 LOC    40
 EQU I
 AND
 LOD I,3,12
 LOD A,3,16
 IND I,64
 LEQ I
 AND
 LOD A,3,16
 IND I,64
 LOD I,3,12
 LOC    50
 LOD A,3,20
 IND I,28
 ADI
 LES I
 AND
 FJP L3
 LDC B,1
 STR B,2,312
 LOD A,3,16
 IND I,64
 LOC    60
 STR I,2,320
 LDA 1,35532
 LOD A,3,16
 IND I,64
 LOD I,3,12
 SBI
 LDC I,4
 DVI
 CHK J,0,9
 IXA 4
 LOC    70
 IND I,0
 CHK I,0,31
 STR I,2,316
 UJP L4
L3 LAB
 LDC B,0
 STR B,2,312
L4 LAB
 RET P
L1 DEF        24
 SST P  RESUL208       3       4       0     112       4
 LOC     0
RESUL208 ENT P,3,L1  RESULT_PARM    1 1 1
 LOD B,2,312
 NOT
 FJP L2
 MST 2,4,4
 LCA 'RESLT_PRM001'
 PAR A
 CUP P,2,ASSER003
L2 LAB
 MST 2,8,8
 LDA 3,68
 LOC    10
 PAR A
 LOD I,2,316
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 3,12
 PAR A
 LOD I,1,5048
 CHK I,0,31
 LOC    20
 PAR I
 LOD I,2,320
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LDA 1,31060
 LOD I,3,8
 CHK J,0,15
 IXA 4
 LOC    30
 IND I,0
 CHK I,0,285
 PAR I
 LDA 3,68
 PAR A
 LDA 3,12
 PAR A
 CUP P,6,EMITX077
 RET P
L1 DEF       124
 LOC     0
CALLS199 ENT P,2,L1  CALLSTANDARD   1 1 1
 MST 2,4,4
 LDA 1,100
 PAR A
 CUP I,2,NAME$037
 CHK I,0,31
 STR I,2,288
 LOD I,2,288
 ORD
 CHK I,0,31
 LOC    10
 XJP L2
L6 LAB
 LOD I,2,288
 LDC I,1
 EQU I
 FJP L7
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 LOC    20
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 UJP L8
L7 LAB
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,13
 CHK I,0,15
 LOC    30
 PAR I
 CUP P,4,ONE$A201
L8 LAB
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 LOC    40
 PAR I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 PAR A
 LDA 1,35760
 LOC    50
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 PAR I
 LDC I,6
 CHK I,0,31
 PAR I
 LOC    60
 CUP P,8,REG$D113
 LOD I,2,288
 LDC I,1
 EQU I
 FJP L9
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 LOC    70
 UJP L10
L9 LAB
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC081
L10 LAB
 LOD I,1,39472
 CHK I,-1,30
 STR I,1,35492
 LDA 1,30932
 LOC    80
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 STR B,1,35496
 LOC    90
 UJP L5
L11 LAB
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 MST 3,4,4
 LOC   100
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L12 LAB
 MST 2,0,0
 CUP P,0,SAVE$197
 MST 3,16,16
 LOC   110
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 LOC   120
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 CUP P,8,TWO$S202
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   130
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,RESTO198
 UJP L5
L13 LAB
 MST 3,4,4
 LOC   140
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 UJP L5
L14 LAB
 LOC   150
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   160
 PAR I
 CUP P,2,CHECK207
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 LOC   170
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 LOD B,2,312
 FJP L15
 MST 3,4,4
 LOC   180
 LDC I,5
 CHK I,0,15
 PAR I
 CUP P,2,RESUL208
L15 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L16 LAB
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 LOC   190
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK207
 MST 3,8,8
 LOC   200
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 LOC   210
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 LOD B,2,312
 FJP L17
 MST 3,4,4
 LDC I,6
 CHK I,0,15
 PAR I
 LOC   220
 CUP P,2,RESUL208
L17 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L18 LAB
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   230
 CUP P,2,CHECK203
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK207
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   240
 LDC I,2
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   250
 CUP P,2,GENCA200
 LOD B,2,312
 FJP L19
 MST 3,4,4
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,2,RESUL208
L19 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   260
 UJP L5
L20 LAB
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LOD I,1,39472
 LOC   270
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK207
 MST 3,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 LOC   280
 CUP P,4,ONE$A201
 MST 3,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 LOD B,2,312
 FJP L21
 LOC   290
 MST 3,4,4
 LDC I,13
 CHK I,0,15
 PAR I
 CUP P,2,RESUL208
L21 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L22 LAB
 MST 3,4,4
 LOD I,1,39472
 LOC   300
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,16,16
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   310
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 LOC   320
 CUP P,8,TWO$S202
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   330
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L23 LAB
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 LOC   340
 MST 3,16,16
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,5
 LOC   350
 CHK I,0,15
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,8,TWO$S202
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 LOC   360
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L24 LAB
 MST 3,4,4
 LOD I,1,39472
 LOC   370
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,16,16
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   380
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,6
 CHK I,0,15
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 LOC   390
 CUP P,8,TWO$S202
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   400
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L25 LAB
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 LOC   410
 MST 3,16,16
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 LOC   420
 CHK I,0,15
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,8,TWO$S202
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 LOC   430
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L26 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   440
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LDC I,1
 PAR I
 LOC   450
 CUP P,2,ALLOC204
 MST 3,16,16
 LDC I,1
 PAR I
 LDC I,1
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 LOC   460
 CHK I,0,15
 PAR I
 CUP P,8,EXCES205
 MST 3,8,8
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LDC I,13
 LOC   470
 CHK I,0,15
 PAR I
 CUP P,4,ONE$A201
 MST 3,4,4
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 LOC   480
 MST 3,4,4
 LDC I,1
 PAR I
 CUP P,2,DEALL206
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L27 LAB
 MST 3,4,4
 LOC   490
 LOD I,1,39472
 LDC I,3
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 3,4,4
 LDC I,1
 PAR I
 CUP P,2,ALLOC204
 LOC   500
 MST 3,16,16
 LDC I,1
 PAR I
 LDC I,1
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 LOC   510
 PAR I
 CUP P,8,EXCES205
 MST 3,16,16
 LOD I,1,39472
 LDC I,2
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 LDC I,1
 LOC   520
 SBI
 CHK I,-1,30
 PAR I
 LDC I,2
 CHK I,0,15
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,8,TWO$S202
 LOC   530
 MST 3,4,4
 LOD I,1,39472
 LDC I,3
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 3,4,4
 LDC I,1
 PAR I
 LOC   540
 CUP P,2,DEALL206
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L28 LAB
 MST 3,4,4
 LOD I,1,39472
 LOC   550
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L29
 LOC   560
 MST 2,0,0
 CUP P,0,MOVE$085
L29 LAB
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,GENCA200
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,35308
 LOC   570
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 LOD I,1,35492
 LOD I,1,39472
 LDC I,1
 SBI
 NEQ I
 IOR
 LOC   580
 NOT
 FJP L30
 MST 2,4,4
 LCA 'QELN,QEOF001'
 PAR A
 CUP P,2,ASSER003
L30 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   590
 IXA 116
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 MOV 116
 MST 2,16,16
 LOC   600
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   610
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 PAR A
 LDC I,5
 CHK I,0,15
 PAR I
 LDC I,6
 CHK I,0,31
 LOC   620
 PAR I
 CUP P,8,REG$D113
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,8
 LOC   630
 LDC I,0
 CHK I,0,1
 STO I
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 LOD I,1,39472
 LDC I,1
 LOC   640
 SBI
 CHK I,-1,30
 STR I,1,35492
 LDC B,0
 STR B,1,35496
 UJP L5
L31 LAB
 MST 2,12,12
 LDA 2,176
 PAR A
 LDA 1,35500
 LOC   650
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LDC I,8
 LDC I,172
 SBI
 LOC   660
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,324
 LOD A,2,324
 LOC   670
 IND I,4
 LDC I,2
 NEQ I
 FJP L32
 MST 2,4,4
 LDC I,58
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L32 LAB
 MST 2,8,8
 LOC   680
 LDA 2,176
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   690
 CUP P,2,FREED090
 LOD A,2,324
 IND A,0
 CHK A,-1,0
 STR A,2,292
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   700
 LDA 1,4576
 MOV 116
 LOD A,2,324
 LOD A,2,292
 CHK A,-1,0
 STO A
 LOD A,2,324
 INC A,4
 LDC I,2
 CHK I,0,15
 LOC   710
 STO I
 LOD A,2,324
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 LOD A,2,324
 INC A,84
 LDC I,1
 STO I
 LOC   720
 LOD A,2,324
 INC A,92
 LDC I,1
 CHK I,0,8
 STO I
 LOD A,2,324
 INC A,88
 LDC I,8
 LDC I,172
 SBI
 LOC   730
 STO I
 UJP L5
L33 LAB
 MST 3,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,CHECK203
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L34 LAB
 LOC   740
 LDA 1,30964
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOC   750
 NOT
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 LOC   760
 NEQ I
 IOR
 FJP L35
 MST 2,4,4
 LDC I,43
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L35 LAB
 MST 2,8,8
 LOD I,1,39472
 LOC   770
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 MST 2,8,8
 LDA 2,120
 PAR A
 LOD I,1,39472
 LOC   780
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L36
 LDA 1,35760
 LOC   790
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,4
 MOD
 LDC I,0
 NEQ I
 FJP L37
 LOC   800
 MST 2,4,4
 LDC I,3
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L37 LAB
 UJP L38
L36 LAB
 LOD B,1,305
 FJP L39
 MST 2,8,8
 LDA 2,176
 LOC   810
 PAR A
 LDC I,4
 LDC I,1
 SBI
 PAR I
 CUP P,4,IMM$O064
 LOD A,1,328
 CHK A,-1,0
 STR A,2,300
 MST 2,20,20
 LOC   820
 LDC I,195
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,176
 PAR A
 LDA 2,120
 PAR A
 LOC   830
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LDA 2,64
 PAR A
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 LOC   840
 MST 2,8,8
 LDA 2,8
 PAR A
 LDC I,1
 NGI
 PAR I
 CUP P,4,IMM$O064
 MST 2,20,20
 LDC I,61
 CHK I,0,285
 LOC   850
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LOD A,1,328
 CHK A,-1,0
 LOC   860
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,300
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
L39 LAB
L38 LAB
 LOC   870
 MST 2,8,8
 LDA 2,232
 PAR A
 LDC I,31
 DEC I,1
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDC I,11
 LOC   880
 CHK I,0,285
 PAR I
 LDA 2,232
 PAR A
 LDA 2,120
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,176
 PAR A
 LOC   890
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,232
 PAR A
 LDC I,31
 LOC   900
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,176
 PAR A
 LDA 2,232
 LOC   910
 PAR A
 CUP P,6,EMITX077
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,4,4
 LOC   920
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L40 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   930
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 NEQ I
 FJP L41
 MST 2,4,4
 LDC I,54
 CHK I,0,68
 PAR I
 LOC   940
 CUP P,2,ERROR005
L41 LAB
 MST 2,8,8
 LDA 2,176
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,232
 LOC   950
 PAR A
 LDC I,31
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,176
 LOC   960
 PAR A
 LDA 2,232
 PAR A
 CUP P,6,EMITX077
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 LOC   970
 CUP P,0,POPTO129
 UJP L5
L42 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,2
 NEQ I
 LOC   980
 FJP L43
 MST 2,4,4
 LDC I,53
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L43 LAB
 LOD B,1,305
 FJP L44
 MST 2,8,8
 LDA 2,120
 LOC   990
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,176
 PAR A
 LDC I,124
 CHK I,0,1073741823
 LOC  1000
 PAR I
 CUP P,4,ADDR$075
 LOD A,1,328
 CHK A,-1,0
 STR A,2,308
 MST 2,20,20
 LDC I,186
 CHK I,0,285
 PAR I
 LDC I,0
 LOC  1010
 CHK I,-8,7
 PAR I
 LDA 2,120
 PAR A
 LDA 2,176
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 LOC  1020
 MST 2,8,8
 LDA 2,176
 PAR A
 LDC I,124
 LDC I,4
 ADI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,1,328
 LOC  1030
 CHK A,-1,0
 STR A,2,304
 MST 2,20,20
 LDC I,185
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,120
 LOC  1040
 PAR A
 LDA 2,176
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LOD A,2,308
 CHK A,-1,0
 LOC  1050
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 MST 2,20,20
 LDC I,61
 CHK I,0,285
 PAR I
 LDC I,0
 LOC  1060
 CHK I,0,1
 PAR I
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 LOC  1070
 MST 2,8,8
 LOD A,2,304
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
L44 LAB
 MST 2,8,8
 LDA 2,232
 LOC  1080
 PAR A
 LDC I,31
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,232
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 LOC  1090
 PAR I
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L2 DEF         0
L3 DEF        31
L4 LAB
 LOC  1100
 UJP L6
 UJP L6
 UJP L6
 UJP L33
 UJP L28
 UJP L28
 UJP L6
 UJP L13
 UJP L6
 UJP L34
 LOC  1110
 UJP L13
 UJP L14
 UJP L16
 UJP L18
 UJP L20
 UJP L22
 UJP L13
 UJP L13
 UJP L13
 UJP L42
 LOC  1120
 UJP L40
 UJP L6
 UJP L31
 UJP L6
 UJP L12
 UJP L13
 UJP L23
 UJP L24
 UJP L25
 UJP L26
 LOC  1130
 UJP L27
 UJP L11
L5 LAB
 LOD I,2,288
 ORD
 CHK S,0,63
 LDC S,(0,0,32263,64640)
 INN
 LOD I,1,39472
 LDC I,1
 NEQ I
 LOC  1140
 AND
 FJP L46
 MST 2,4,4
 LDC I,64
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L47
L46 LAB
 LOD I,2,288
 ORD
 LOC  1150
 CHK S,0,63
 LDC S,(0,0,33048,512)
 INN
 LOD I,1,39472
 LDC I,1
 LDC I,1
 SBI
 NEQ I
 AND
 FJP L48
 LOC  1160
 MST 2,4,4
 LDC I,63
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L48 LAB
L47 LAB
 RET P
L1 DEF       328
 SST P  ASMNX209       2       0       0     556       0
 SST P  CASE1210       3       0       0       0       0
 LOC     0
CASE1210 ENT P,3,L1  CASE1          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    10
 STR A,3,8
 LOD I,1,44
 ORD
 CHK S,0,63
 LDC S,(0,32,0,1)
 INN
 FJP L7
 LOD A,3,8
 IND I,4
 LDC I,11
 LOC    20
 NEQ I
 FJP L8
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOC    30
 UJP L9
L8 LAB
L9 LAB
 UJP L10
L7 LAB
 LDA 1,30980
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 FJP L11
 LOC    40
 MST 2,4,4
 LDC I,0
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L11 LAB
L10 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 LOC    50
 FJP L12
 LDA 1,30964
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L13
 LOD I,1,44
 LDC I,0
 LOC    60
 EQU I
 FJP L14
 LOD A,3,8
 INC A,64
 LOD A,3,8
 IND I,64
 ABI
 STO I
 UJP L15
L14 LAB
 LOD A,3,8
 LOC    70
 INC A,64
 LOD A,3,8
 IND I,64
 NGI
 STO I
L15 LAB
 UJP L16
L13 LAB
 LOD I,1,44
 LDC I,1
 EQU I
 FJP L17
 LOC    80
 LOD A,3,8
 INC A,52
 LOD A,3,8
 IND R,52
 ABR
 STO R
 UJP L18
L17 LAB
 LOD A,3,8
 INC A,52
 LOD A,3,8
 LOC    90
 IND R,52
 NGR
 STO R
L18 LAB
L16 LAB
 UJP L19
L12 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   100
 CUP P,4,GET$O108
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LDA 1,30932
 LOD A,3,8
 IND I,4
 CHK J,0,15
 LOC   110
 IXA 1
 IND B,0
 FJP L20
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L21
L20 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L21 LAB
 MST 2,8,8
 LDA 2,240
 LOC   120
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOD I,1,44
 ORD
 CHK S,0,63
 LDC S,(0,0,0,3)
 INN
 LOC   130
 FJP L22
 LDA 1,31124
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,12
 UJP L23
L22 LAB
 LOC   140
 LDA 1,31188
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 STR I,2,12
L23 LAB
 MST 2,12,12
 LOD I,2,12
 LOC   150
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 LOC   160
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 PAR A
 LOD A,3,8
 IND I,4
 CHK I,0,15
 PAR I
 LOD I,1,35476
 LOC   170
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L19 LAB
 UJP L5
L24 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOC   180
 LDA 1,33108
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 64
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 LOC   190
 CHK I,0,15
 STR I,2,352
 LOD I,2,352
 LDC I,0
 EQU I
 FJP L25
 MST 2,4,4
 LDC I,59
 CHK I,0,68
 PAR I
 LOC   200
 CUP P,2,ERROR005
 UJP L26
L25 LAB
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,352
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOC   210
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L27
 LDA 1,30964
 LOD I,2,352
 CHK J,0,15
 IXA 1
 LOC   220
 IND B,0
 FJP L28
 LOD A,3,8
 INC A,64
 LOD A,3,8
 IND I,64
 SQI
 STO I
 UJP L29
L28 LAB
 LOD A,3,8
 LOC   230
 INC A,52
 LOD A,3,8
 IND R,52
 SQR
 STO R
L29 LAB
 UJP L30
L27 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 LOC   240
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOD I,2,352
 LDC I,10
 EQU I
 FJP L31
 LDC I,147
 CHK I,0,285
 STR I,2,12
 LOC   250
 UJP L32
L31 LAB
 LOD I,2,352
 LDC I,13
 EQU I
 FJP L33
 LDC I,53
 CHK I,0,285
 STR I,2,12
 UJP L34
L33 LAB
 LOD I,2,352
 LOC   260
 LDC I,12
 EQU I
 FJP L35
 LDC I,54
 CHK I,0,285
 STR I,2,12
 UJP L36
L35 LAB
 LOD I,2,352
 LDC I,11
 EQU I
 LOC   270
 FJP L37
 LDC I,148
 CHK I,0,285
 STR I,2,12
 UJP L38
L37 LAB
 LDC B,0
 NOT
 FJP L39
 MST 2,4,4
 LCA 'PSQI,PSQR001'
 LOC   280
 PAR A
 CUP P,2,ASSER003
L39 LAB
L38 LAB
L36 LAB
L34 LAB
L32 LAB
 MST 2,32,32
 LDA 2,444
 PAR A
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,184
 PAR A
 LOC   290
 LDA 2,184
 PAR A
 LDA 1,30932
 LOD I,2,352
 CHK J,0,15
 IXA 1
 IND B,0
 PAR B
 LDA 1,30932
 LOD A,3,8
 LOC   300
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 PAR B
 LDA 1,30932
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 1
 LOC   310
 IND B,0
 PAR B
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   320
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,3,8
 IND A,0
 LOC   330
 CHK A,-1,0
 PAR A
 LOD I,2,352
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L30 LAB
L26 LAB
 UJP L5
L40 LAB
 LOC   340
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD I,1,44
 LDC I,43
 EQU I
 FJP L41
 LOC   350
 LOD A,3,8
 IND I,4
 CHK I,0,15
 STR I,1,52
 LDC I,1
 NGI
 STR I,1,72
 UJP L42
L41 LAB
 LOD I,1,44
 LDC I,56
 LOC   360
 EQU I
 FJP L43
 LOD A,3,8
 IND I,4
 CHK I,0,15
 STR I,1,52
 LDC I,1
 STR I,1,72
 UJP L44
L43 LAB
 LOD I,1,44
 LOC   370
 LDC I,9
 EQU I
 FJP L45
 LOD I,1,72
 NGI
 STR I,1,72
L45 LAB
L44 LAB
L42 LAB
 LOD A,3,8
 IND I,4
 LOD I,1,52
 NEQ I
 LOC   380
 FJP L46
 MST 2,4,4
 LDC I,23
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L46 LAB
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   390
 LOD I,1,72
 PAR I
 CUP P,4,INCRE121
 UJP L5
L47 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOC   400
 LOD A,3,8
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,3936)
 INN
 NOT
 FJP L48
 MST 2,4,4
 LDC I,49
 LOC   410
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L48 LAB
 LOD A,3,8
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 INN
 FJP L49
 LOC   420
 LOD A,3,8
 IND I,4
 LDC I,5
 EQU I
 LOD A,3,8
 IND I,8
 LDC I,1
 EQU I
 AND
 FJP L50
 LOC   430
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,BJUMP120
L50 LAB
 LOD A,3,8
 INC A,4
 LDC I,8
 CHK I,0,15
 STO I
L49 LAB
 LOC   440
 UJP L5
L51 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LDA 1,30964
 LOD A,3,8
 IND I,4
 LOC   450
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 FJP L52
 MST 2,4,4
 LDC I,8
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 LOC   460
 UJP L53
L52 LAB
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,8
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOD A,3,8
 LOC   470
 INC A,4
 LDC I,6
 CHK I,0,15
 STO I
L53 LAB
 UJP L5
L54 LAB
 LOD I,1,44
 LDC I,16
 EQU I
 FJP L55
 LOD I,1,39472
 LOC   480
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,388
 UJP L56
L55 LAB
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,388
L56 LAB
 LOD I,2,388
 LDC I,1
 LOC   490
 GEQ I
 NOT
 FJP L57
 MST 2,4,4
 LCA 'PFLO,PFLT001'
 PAR A
 CUP P,2,ASSER003
L57 LAB
 LDA 1,35760
 LOD I,2,388
 CHK J,-1,30
 LOC   500
 INC I,1
 IXA 116
 STR A,3,8
 LDA 1,31508
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 LOC   510
 STR I,2,12
 LOD I,2,12
 LDC I,0
 EQU I
 FJP L58
 MST 2,4,4
 LDC I,17
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L58 LAB
 LOC   520
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L59
 LOD A,3,8
 INC A,52
 LOD A,3,8
 IND I,64
 LOC   530
 FLT
 STO R
 LOD A,3,8
 INC A,60
 LDA 1,4692
 MOV 12
 LOD A,3,8
 INC A,4
 LDC I,13
 CHK I,0,15
 LOC   540
 STO I
 UJP L60
L59 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,4,4
 LOC   550
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,FINDR083
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,35476
 LOC   560
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 LOC   570
 PAR A
 CUP P,6,EMITX077
 MST 2,16,16
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 PAR A
 LOC   580
 LDC I,13
 CHK I,0,15
 PAR I
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L60 LAB
 UJP L5
L61 LAB
 LDA 1,35760
 LOD I,1,39472
 LOC   590
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LDA 1,31572
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 LOC   600
 CHK I,0,285
 STR I,2,12
 LOD I,2,12
 LDC I,0
 EQU I
 FJP L62
 MST 2,4,4
 LDC I,65
 CHK I,0,68
 PAR I
 LOC   610
 CUP P,2,ERROR005
L62 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L63
 LOD A,3,8
 INC A,60
 LDA 1,4692
 LOC   620
 MOV 12
 LOD A,3,8
 INC A,64
 LOD A,3,8
 IND R,52
 TRC
 STO I
 LOD A,3,8
 INC A,52
 LDC R,0.0
 LOC   630
 STO R
 LOD A,3,8
 INC A,4
 LDC I,10
 CHK I,0,15
 STO I
 UJP L64
L63 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LOC   640
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 LOC   650
 CUP P,0,FINDR084
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOD I,2,12
 LOC   660
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 LOC   670
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 PAR A
 LDC I,10
 CHK I,0,15
 PAR I
 LOD I,1,35476
 CHK I,0,31
 LOC   680
 PAR I
 CUP P,8,REG$D113
L64 LAB
 UJP L5
L2 DEF         0
L3 DEF        59
L4 LAB
 UJP L6
 UJP L6
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L51
 LOC   690
 UJP L5
 UJP L5
 UJP L40
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L54
 LOC   700
 UJP L54
 UJP L40
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   710
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   720
 UJP L6
 UJP L6
 UJP L5
 UJP L5
 UJP L47
 UJP L5
 UJP L40
 UJP L5
 UJP L5
 UJP L5
 LOC   730
 UJP L5
 UJP L5
 UJP L24
 UJP L24
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L40
 LOC   740
 UJP L5
 UJP L5
 UJP L61
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE2211       3       0       0       0       0
 LOC     0
CASE2211 ENT P,3,L1  CASE2          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    10
 STR A,3,8
 LDA 1,30964
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 FJP L7
 MST 2,4,4
 LOC    20
 LDC I,48
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L7 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L8
 LOC    30
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
 LOC    40
 LOD A,3,8
 INC A,64
 LOD A,3,8
 IND I,64
 ODD
 ORD
 STO I
 UJP L9
L8 LAB
 LOD A,3,8
 IND A,0
 LOC    50
 CHK A,-1,0
 STR A,2,356
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LOC    60
 LDA 2,184
 PAR A
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 LOC    70
 CHK I,-1,30
 PAR I
 CUP P,4,LOADS119
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOC    80
 LOD I,1,39472
 NEQ I
 AND
 FJP L10
 MST 2,0,0
 CUP P,0,MOVE$085
L10 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC    90
 CUP P,2,FREED090
 LOD A,1,328
 CHK A,-1,0
 STR A,2,408
 MST 2,20,20
 LDA 1,30996
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 LOC   100
 IND I,0
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOC   110
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 LOC   120
 PAR I
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOC   130
 LOD A,2,408
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   140
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 STO A
 LOD A,3,8
 INC A,4
 LOC   150
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,72
 LOC   160
 LDC I,1
 CHK I,0,2
 STO I
 MST 2,0,0
 CUP P,0,FINDR084
 LOD A,3,8
 INC A,84
 LDC I,0
 STO I
 LOD A,3,8
 LOC   170
 INC A,88
 LOD I,1,35476
 CHK I,0,31
 STO I
 LOD A,3,8
 INC A,12
 LDA 1,4736
 MOV 12
 LOD A,3,8
 INC A,24
 LOC   180
 LDA 1,4736
 MOV 12
 LOD A,3,8
 INC A,40
 LDC B,1
 STO B
 LOD A,3,8
 INC A,36
 LOD A,2,408
 CHK A,-1,0
 LOC   190
 STO A
L9 LAB
 UJP L5
L11 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 IND I,4
 LOC   200
 LDC I,5
 NEQ I
 FJP L12
 MST 2,4,4
 LDC I,46
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L12 LAB
 LOD A,3,8
 IND A,0
 LOC   210
 CHK A,-1,0
 STR A,2,356
 LOD A,3,8
 IND I,8
 LDC I,1
 EQU I
 FJP L13
 LDA 2,424
 LOD A,3,8
 INC A,12
 LOC   220
 MOV 12
 LOD A,3,8
 INC A,12
 LOD A,3,8
 INC A,24
 MOV 12
 LOD A,3,8
 INC A,24
 LDA 2,424
 MOV 12
 LOC   230
 LOD A,3,8
 INC A,40
 LOD A,3,8
 IND B,40
 NOT
 STO B
 UJP L14
L13 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   240
 PAR I
 CUP B,2,IS$CO006
 FJP L15
 LOD A,3,8
 INC A,64
 LDC I,1
 LOD A,3,8
 IND I,64
 SBI
 STO I
 LOC   250
 UJP L16
L15 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 LOC   260
 PAR A
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 MST 2,32,32
 LDA 2,444
 PAR A
 LDC I,285
 CHK I,0,285
 PAR I
 LOC   270
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOC   280
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 LOC   290
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 PAR A
 LOC   300
 LDC I,5
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOD A,3,8
 INC A,8
 LDC I,0
 LOC   310
 CHK I,0,1
 STO I
L16 LAB
L14 LAB
 UJP L5
L17 LAB
 MST 2,4,4
 LDA 1,30964
 PAR A
 CUP P,2,COERC115
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   320
 INC I,1
 IXA 116
 IND I,4
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   330
 IND I,4
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 ORD
 CHK S,0,63
 LOC   340
 LDC S,(0,0,0,3072)
 INN
 AND
 NOT
 FJP L18
 MST 2,4,4
 LCA 'PADI     001'
 PAR A
 CUP P,2,ASSER003
L18 LAB
 LDA 1,35760
 LOC   350
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,10
 EQU I
 FJP L19
 MST 2,0,0
 CUP P,0,ADD$T143
 LOC   360
 UJP L20
L19 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOC   370
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LDA 2,444
 PAR A
 LOC   380
 LDC I,9
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC B,1
 PAR B
 LDC B,1
 LOC   390
 PAR B
 LDC B,1
 PAR B
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOC   400
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOC   410
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   420
 INC I,1
 IXA 116
 STR A,3,8
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 LOC   430
 PAR A
 LDC I,11
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L20 LAB
 UJP L5
L21 LAB
 MST 2,4,4
 LOC   440
 LDA 1,30964
 PAR A
 CUP P,2,COERC115
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   450
 IND A,0
 CHK A,-1,0
 STR A,2,356
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,11
 LOC   460
 EQU I
 FJP L22
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   470
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LDA 2,444
 LOC   480
 PAR A
 LDC I,267
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC B,1
 PAR B
 LOC   490
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 LOC   500
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   510
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 LOC   520
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LDC I,11
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 LOC   530
 PAR I
 CUP P,8,REG$D113
 UJP L23
L22 LAB
 LDC B,0
 STR B,2,362
 LDC B,0
 STR B,2,361
L24 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   540
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   550
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 FJP L25
 LDC B,1
 STR B,2,362
 UJP L26
L25 LAB
 MST 2,4,4
 LOD I,1,39472
 LOC   560
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   570
 IND I,56
 LDC I,0
 EQU I
 AND
 FJP L27
 LDC B,1
 STR B,2,362
 UJP L28
L27 LAB
 LDC I,0
 STR I,2,496
 LOC   580
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 IND I,56
 LOC   590
 LDC I,0
 EQU I
 FJP L29
 LOD A,3,8
 IND I,64
 STR I,2,496
 LOD A,3,8
 INC A,64
 LDC I,0
 STO I
L29 LAB
 LOC   600
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 IND I,56
 LDC I,0
 EQU I
 LOC   610
 FJP L30
 LOD I,2,496
 LOD A,3,8
 IND I,64
 SBI
 STR I,2,496
 LOD A,3,8
 INC A,64
 LDC I,0
 STO I
L30 LAB
 LOC   620
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LOC   630
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 EQU M,12
 LOC   640
 AND
 FJP L31
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LOC   650
 LOD I,2,496
 STO I
 LDC I,0
 STR I,2,496
 UJP L32
L31 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   660
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,60
 LDA 1,4692
 LOC   670
 EQU M,12
 AND
 FJP L33
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LOD I,2,496
 LOC   680
 NGI
 STO I
 LDC I,0
 STR I,2,496
L33 LAB
L32 LAB
 MST 2,12,12
 LDA 2,364
 PAR A
 LDA 2,240
 PAR A
 LOD I,1,39472
 LOC   690
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 MST 2,12,12
 LDA 2,363
 PAR A
 LDA 2,184
 PAR A
 LOC   700
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,364
 NOT
 LOD B,2,363
 NOT
 AND
 FJP L34
 LOC   710
 LDC B,1
 STR B,2,361
 UJP L35
L34 LAB
 LOD B,2,364
 NOT
 FJP L36
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,380
 LOD I,1,39472
 LOC   720
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,376
 LOD I,2,496
 NGI
 STR I,2,496
 UJP L37
L36 LAB
 LOD B,2,363
 NOT
 LOC   730
 FJP L38
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,380
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,376
 UJP L39
L38 LAB
 LOC   740
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,380
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,376
L39 LAB
L37 LAB
 LOD I,2,496
 LDC I,0
 LOC   750
 NEQ I
 FJP L40
 LDA 1,35760
 LOD I,2,380
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LOC   760
 FJP L41
 LDA 1,35760
 LOD I,2,380
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 EQU I
 NOT
 LOC   770
 FJP L42
 MST 2,4,4
 LCA 'PSBI     001'
 PAR A
 CUP P,2,ASSER003
L42 LAB
 LDA 1,35760
 LOD I,2,380
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   780
 INC A,64
 LOD I,2,496
 STO I
 UJP L43
L41 LAB
 LDA 1,35760
 LOD I,2,376
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LOC   790
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,2,376
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 EQU I
 LOC   800
 AND
 NOT
 FJP L44
 MST 2,4,4
 LCA 'PSBI     002'
 PAR A
 CUP P,2,ASSER003
L44 LAB
 LDA 1,35760
 LOD I,2,376
 CHK J,-1,30
 LOC   810
 INC I,1
 IXA 116
 INC A,64
 LOD I,2,496
 STO I
L43 LAB
L40 LAB
 MST 2,4,4
 LOD I,2,380
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
L35 LAB
L28 LAB
L26 LAB
 LOC   820
 LOD B,2,362
 LOD B,2,361
 IOR
 FJP L24
 LOD B,2,362
 FJP L45
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   830
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   840
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 SBI
 STO I
 LOC   850
 MST 2,0,0
 CUP P,0,POPTO129
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOD A,2,356
 CHK A,-1,0
 STO A
 LOC   860
 UJP L46
L45 LAB
 MST 2,20,20
 LDA 2,444
 PAR A
 LDC I,265
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 LOC   870
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,10,ADD$S112
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 LOC   880
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 LOC   890
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 LOC   900
 CHK A,-1,0
 PAR A
 LDC I,10
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LDA 1,35760
 LOC   910
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LOD I,2,496
 STO I
L46 LAB
L23 LAB
 UJP L5
L2 DEF         2
L3 DEF        47
L4 LAB
 UJP L17
 UJP L5
 LOC   920
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   930
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   940
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   950
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L11
 UJP L6
 UJP L5
 UJP L5
 UJP L5
 LOC   960
 UJP L5
 UJP L5
 UJP L5
 UJP L21
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE3212       3       0       0       0       0
 LOC     0
CASE3212 ENT P,3,L1  CASE3          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 MST 2,4,4
 LDA 1,30964
 PAR A
 CUP P,2,COERC115
 LDA 1,35760
 LOC    10
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 STR A,2,356
 LDA 1,35760
 LOC    20
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,11
 EQU I
 FJP L7
 MST 2,8,8
 LDA 2,240
 LOC    30
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOC    40
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LDA 2,444
 PAR A
 LDC I,148
 CHK I,0,285
 PAR I
 LOC    50
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LOC    60
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC    70
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC    80
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 LOC    90
 PAR A
 LDC I,11
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 UJP L8
L7 LAB
 LDC B,0
 LOC   100
 STR B,2,362
 LDC B,0
 STR B,2,361
L9 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L10
 MST 2,4,4
 LOC   110
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L11
 LDC B,1
 STR B,2,362
 UJP L12
L11 LAB
 LOC   120
 MST 2,4,4
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 PAR I
 CUP I,2,POWER031
 STR I,2,500
 LOC   130
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD I,2,500
 LDC I,0
 LOC   140
 GEQ I
 LOD A,3,8
 IND I,68
 LDC I,0
 EQU I
 AND
 LOD A,3,8
 IND I,56
 LDC I,0
 EQU I
 LOC   150
 AND
 LOD A,3,8
 IND I,72
 LDC I,0
 EQU I
 LOD A,3,8
 IND I,72
 LDC I,1
 EQU I
 LOD A,3,8
 LOC   160
 IND I,76
 LOD I,2,500
 ADI
 LDC I,3
 LEQ I
 AND
 IOR
 AND
 FJP L13
 LDC B,1
 LOC   170
 STR B,2,362
L13 LAB
L12 LAB
 UJP L14
L10 LAB
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L15
 LOC   180
 MST 2,4,4
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 PAR I
 LOC   190
 CUP I,2,POWER031
 STR I,2,500
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD I,2,500
 LDC I,0
 LOC   200
 GEQ I
 LOD A,3,8
 IND I,68
 LDC I,0
 EQU I
 AND
 LOD A,3,8
 IND I,56
 LDC I,0
 EQU I
 LOC   210
 AND
 LOD A,3,8
 IND I,72
 LDC I,0
 EQU I
 LOD A,3,8
 IND I,72
 LDC I,1
 EQU I
 LOD A,3,8
 LOC   220
 IND I,76
 LOD I,2,500
 ADI
 LDC I,3
 LEQ I
 AND
 IOR
 AND
 FJP L16
 LDC B,1
 LOC   230
 STR B,2,362
L16 LAB
L15 LAB
L14 LAB
 LOD B,2,362
 NOT
 FJP L17
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   240
 CUP B,2,IS$CO006
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO127
 AND
 FJP L18
 LDA 1,35760
 LOD I,1,39472
 LOC   250
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   260
 IXA 116
 IND I,64
 MPI
 STR I,2,496
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LOC   270
 LDC I,0
 STO I
 MST 2,8,8
 LDA 2,240
 PAR A
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   280
 INC I,1
 IXA 116
 IND I,64
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDA 2,363
 PAR A
 LDA 2,184
 PAR A
 LOC   290
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,363
 NOT
 NOT
 FJP L19
 MST 2,4,4
 LCA 'PMPI     001'
 LOC   300
 PAR A
 CUP P,2,ASSER003
L19 LAB
 LDC B,1
 STR B,2,361
 UJP L20
L18 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 LOC   310
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO127
 AND
 FJP L21
 LDA 1,35760
 LOC   320
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   330
 INC I,1
 IXA 116
 IND I,64
 MPI
 STR I,2,496
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   340
 INC I,1
 IXA 116
 INC A,64
 LDC I,0
 STO I
 MST 2,12,12
 LDA 2,364
 PAR A
 LDA 2,240
 PAR A
 LOC   350
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,364
 NOT
 NOT
 FJP L22
 LOC   360
 MST 2,4,4
 LCA 'PMPI     002'
 PAR A
 CUP P,2,ASSER003
L22 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   370
 INC I,1
 IXA 116
 IND I,64
 PAR I
 CUP P,4,IMM$O064
 LDC B,1
 STR B,2,361
 UJP L23
L21 LAB
 MST 2,12,12
 LDA 2,364
 LOC   380
 PAR A
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 MST 2,12,12
 LOC   390
 LDA 2,363
 PAR A
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,364
 NOT
 LOC   400
 LOD B,2,363
 NOT
 AND
 FJP L24
 LDC I,0
 STR I,2,496
 LDC B,1
 STR B,2,361
 UJP L25
L24 LAB
 LOD B,2,364
 LOC   410
 NOT
 FJP L26
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L27
L26 LAB
 LOD B,2,363
 NOT
 LOC   420
 FJP L28
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L29
L28 LAB
 MST 2,4,4
 LOC   430
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
L29 LAB
L27 LAB
L25 LAB
L23 LAB
L20 LAB
L17 LAB
 LOD B,2,362
 LOD B,2,361
 IOR
 FJP L9
 LOD B,2,361
 FJP L30
 LOC   440
 MST 2,16,16
 LDA 2,444
 PAR A
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   450
 CHK I,-1,30
 PAR I
 CUP P,8,MULT$144
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 LOC   460
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 LOC   470
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LDC I,10
 CHK I,0,15
 LOC   480
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   490
 INC A,64
 LOD I,2,496
 STO I
 UJP L31
L30 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   500
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOC   510
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 MPI
 STO I
 LDA 1,35760
 LOD I,1,39472
 LOC   520
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 LDA 1,35760
 LOD I,1,39472
 LOC   530
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 NEQ I
 AND
 FJP L32
 LDA 1,35760
 LOD I,1,39472
 LOC   540
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,72
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   550
 IXA 116
 IND I,72
 CHK I,0,2
 STO I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   560
 IXA 116
 INC A,76
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 MOV 20
L32 LAB
 LDA 1,35760
 LOC   570
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 IND I,72
 LDC I,1
 LOC   580
 LEQ I
 NOT
 FJP L33
 MST 2,4,4
 LCA 'PMPI     003'
 PAR A
 CUP P,2,ASSER003
L33 LAB
 LOD A,3,8
 IND I,72
 LDC I,1
 LOC   590
 EQU I
 FJP L34
 LOD A,3,8
 INC A,76
 LOD A,3,8
 IND I,76
 LOD I,2,500
 ADI
 CHK I,0,3
 STO I
L34 LAB
 LOC   600
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 STO A
 MST 2,0,0
 CUP P,0,POPTO129
L31 LAB
L8 LAB
 UJP L5
L35 LAB
 MST 2,4,4
 LDA 1,30964
 PAR A
 LOC   610
 CUP P,2,COERC115
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 LOC   620
 STR A,2,356
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 LOC   630
 STR I,2,352
 LDA 1,30932
 LOD I,2,352
 CHK J,0,15
 IXA 1
 IND B,0
 STR B,2,360
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 LOC   640
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 LOC   650
 FJP L36
 LOD I,2,352
 LDC I,10
 EQU I
 NOT
 FJP L37
 MST 2,4,4
 LCA 'PDVI,PMOD001'
 PAR A
 CUP P,2,ASSER003
L37 LAB
 LOC   660
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 EQU I
 FJP L38
 MST 2,4,4
 LOC   670
 LDC I,25
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L39
L38 LAB
 LOD I,1,44
 LDC I,12
 EQU I
 FJP L40
 LDA 1,35760
 LOC   680
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   690
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   700
 IND I,64
 DVI
 STO I
 UJP L41
L40 LAB
 LOD I,1,44
 LDC I,32
 EQU I
 FJP L42
 LDA 1,35760
 LOD I,1,39472
 LOC   710
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   720
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOC   730
 MOD
 STO I
 UJP L43
L42 LAB
 LDC B,0
 NOT
 FJP L44
 MST 2,4,4
 LCA 'PDVI,PMOD002'
 PAR A
 CUP P,2,ASSER003
L44 LAB
L43 LAB
L41 LAB
L39 LAB
 LOC   740
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L45
L36 LAB
 LOD I,1,44
 LDC I,12
 EQU I
 FJP L46
 LOD B,2,360
 FJP L47
 LDC I,158
 LOC   750
 CHK I,0,285
 STR I,2,12
 UJP L48
L47 LAB
 LDC I,156
 CHK I,0,285
 STR I,2,12
L48 LAB
 UJP L49
L46 LAB
 LOD I,1,44
 LDC I,32
 EQU I
 LOC   760
 FJP L50
 LOD B,2,360
 FJP L51
 LDC I,162
 CHK I,0,285
 STR I,2,12
 UJP L52
L51 LAB
 LDC I,160
 CHK I,0,285
 STR I,2,12
L52 LAB
 LOC   770
 UJP L53
L50 LAB
 LDC B,0
 NOT
 FJP L54
 MST 2,4,4
 LCA 'PDVI,PMOD003'
 PAR A
 CUP P,2,ASSER003
L54 LAB
L53 LAB
L49 LAB
 MST 2,8,8
 LDA 2,240
 LOC   780
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOC   790
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LDA 2,444
 PAR A
 LOD I,2,12
 CHK I,0,285
 PAR I
 LOC   800
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOD B,2,360
 PAR B
 LOD B,2,360
 PAR B
 LOD B,2,360
 PAR B
 LOC   810
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   820
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   830
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 LOC   840
 PAR A
 LOD I,2,352
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L45 LAB
 UJP L5
L2 DEF        12
L3 DEF        34
L4 LAB
 UJP L35
 LOC   850
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   860
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L35
 LOC   870
 UJP L5
 UJP L6
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE4213       3       0       0       0       0
 LOC     0
CASE4213 ENT P,3,L1  CASE4          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 MST 2,4,4
 LDA 1,30980
 PAR A
 CUP P,2,COERC115
 LDA 1,35760
 LOC    10
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 STR A,2,356
 LDA 1,35760
 LOC    20
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK I,0,15
 STR I,2,352
 LDA 1,30932
 LOC    30
 LOD I,2,352
 CHK J,0,15
 IXA 1
 IND B,0
 STR B,2,360
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 LOC    40
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 FJP L7
 LOD I,2,352
 LOC    50
 LDC I,13
 EQU I
 NOT
 FJP L8
 MST 2,4,4
 LCA 'PADR,PSBR001'
 PAR A
 CUP P,2,ASSER003
L8 LAB
 LOD I,1,44
 LDC I,63
 LOC    60
 EQU I
 FJP L9
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,52
 LOC    70
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 LDA 1,35760
 LOD I,1,39472
 LOC    80
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 ADR
 STO R
 UJP L10
L9 LAB
 LOD I,1,44
 LDC I,64
 EQU I
 LOC    90
 FJP L11
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,52
 LDA 1,35760
 LOC   100
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   110
 INC I,1
 IXA 116
 IND R,52
 SBR
 STO R
 UJP L12
L11 LAB
 LOD I,1,44
 LDC I,65
 EQU I
 FJP L13
 LOC   120
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,52
 LDA 1,35760
 LOD I,1,39472
 LOC   130
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   140
 IXA 116
 IND R,52
 MPR
 STO R
 UJP L14
L13 LAB
 LOD I,1,44
 LDC I,66
 EQU I
 NOT
 FJP L15
 LOC   150
 MST 2,4,4
 LCA 'PADR,PSBR002'
 PAR A
 CUP P,2,ASSER003
L15 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 LOC   160
 LDC I,0
 FLT
 EQU R
 FJP L16
 MST 2,4,4
 LDC I,51
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L17
L16 LAB
 LOC   170
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,52
 LDA 1,35760
 LOD I,1,39472
 LOC   180
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND R,52
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   190
 IXA 116
 IND R,52
 DVR
 STO R
L17 LAB
L14 LAB
L12 LAB
L10 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L18
L7 LAB
 LDA 1,35156
 LDA 1,30804
 LOD I,2,352
 LOC   200
 CHK J,0,15
 IXA 4
 IND I,0
 CHK J,3,4
 DEC I,3
 IXA 16
 LOD I,1,44
 CHK J,63,66
 DEC I,63
 IXA 4
 LOC   210
 IND I,0
 CHK I,0,285
 STR I,2,12
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   220
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LOC   230
 LDA 2,444
 PAR A
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOD B,2,360
 LOC   240
 PAR B
 LOD B,2,360
 PAR B
 LOD B,2,360
 PAR B
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   250
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 LOC   260
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOC   270
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LOD I,2,352
 CHK I,0,15
 PAR I
 LOD I,2,444
 LOC   280
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L18 LAB
 UJP L5
L19 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   290
 IXA 116
 IND A,0
 CHK A,-1,0
 STR A,2,356
 LOD I,1,52
 LDC I,3
 NEQ I
 FJP L20
 LDA 1,34132
 LDA 1,35760
 LOC   300
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 64
 LDA 1,35760
 LOC   310
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,15
 STR I,2,352
 LOC   320
 LOD I,2,352
 LDC I,1
 EQU I
 FJP L21
 MST 2,4,4
 LDC I,10
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L22
L21 LAB
 LOC   330
 LOD I,2,352
 LOD I,1,52
 NEQ I
 FJP L23
 MST 2,4,4
 LDC I,67
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L23 LAB
L22 LAB
 MST 2,8,8
 LOC   340
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,2,352
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 MST 2,8,8
 LOC   350
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,352
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOD I,2,352
 ORD
 CHK S,0,63
 LOC   360
 LDC S,(0,0,0,1028)
 INN
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LOC   370
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 LOC   380
 EQU I
 AND
 FJP L24
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   390
 IND I,60
 LDC I,1
 EQU I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,60
 LDC I,1
 LOC   400
 EQU I
 AND
 NOT
 FJP L25
 MST 2,4,4
 LCA 'PEQU,PNEQ001'
 PAR A
 CUP P,2,ASSER003
L25 LAB
 LDA 1,35760
 LOD I,1,39472
 LOC   410
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOC   420
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 SBI
 STO I
 LOC   430
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,64
 LDC I,0
 STO I
L24 LAB
 LOC   440
 LOD I,2,352
 LDC I,5
 EQU I
 FJP L26
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   450
 IXA 116
 IND I,8
 LDC I,1
 EQU I
 FJP L27
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   460
 PAR I
 CUP P,2,BJUMP120
L27 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LDC I,1
 EQU I
 LOC   470
 FJP L28
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,BJUMP120
L28 LAB
L26 LAB
 LDA 1,35188
 LDA 1,30804
 LOD I,2,352
 CHK J,0,15
 LOC   480
 IXA 4
 IND I,0
 CHK J,1,4
 DEC I,1
 IXA 24
 LOD I,1,44
 CHK J,67,72
 DEC I,67
 IXA 4
 IND I,0
 LOC   490
 CHK I,0,285
 STR I,2,12
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   500
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LOD I,1,39472
 LOC   510
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,LOADS119
 LDA 1,35308
 LDC I,6
 LOC   520
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOD I,1,39472
 LDC I,1
 SBI
 LES I
 AND
 LOC   530
 FJP L29
 MST 2,0,0
 CUP P,0,MOVE$085
L29 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   540
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 UJP L30
L20 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   550
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 LDA 1,35760
 LOC   560
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 LOC   570
 IOR
 FJP L31
 MST 2,4,4
 LDC I,11
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L31 LAB
 MST 2,4,4
 LDC I,34
 CHK I,32,39
 LOC   580
 PAR I
 CUP P,2,ALLOC078
 LDC I,35
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 LOC   590
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 LOD I,2,448
 LOC   600
 INC I,1
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 LOD I,2,448
 INC I,1
 LOC   610
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 LOD I,2,448
 INC I,1
 CHK I,32,39
 LOC   620
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 LDC I,34
 CHK I,32,39
 STR I,2,448
 MST 2,8,8
 LOC   630
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,12,12
 LDC I,75
 LOC   640
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 1,4400
 PAR A
 CUP P,6,EMITX077
 LDC I,35
 CHK I,32,39
 STR I,2,448
 LOC   650
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,8,8
 LOC   660
 LDA 2,184
 PAR A
 LDC I,34
 LDC I,4
 MPI
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 LOC   670
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 LOC   680
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,8,8
 LOC   690
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 LOD I,2,448
 INC I,1
 LOC   700
 CHK I,32,39
 STR I,2,448
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 LOC   710
 CUP P,4,ADDR$075
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 LOC   720
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 LOC   730
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,8,8
 LOC   740
 LDA 2,240
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 LOC   750
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,8,8
 LOC   760
 LDA 2,184
 PAR A
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,240
 LOC   770
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,184
 PAR A
 LDC I,35
 LDC I,4
 MPI
 LOC   780
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,0,0
 CUP P,0,FINDR084
 LOD I,1,35476
 CHK I,0,31
 STR I,2,440
 MST 2,8,8
 LDA 2,240
 LOC   790
 PAR A
 LOD I,2,440
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 1,35284
 LOD I,1,44
 CHK J,67,72
 DEC I,67
 LOC   800
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOD I,2,440
 LOC   810
 CHK I,0,31
 STR I,2,444
 MST 2,8,8
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 LOC   820
 PAR I
 CUP P,4,LOADS119
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,444
 CHK I,0,31
 PAR I
 LOC   830
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 PAR A
 LDC I,-1
 PAR I
 CUP P,4,IMM$O064
 LDC I,181
 CHK I,0,285
 STR I,2,12
 LOC   840
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 IXA 1
 IND B,0
 NOT
 FJP L32
 MST 2,0,0
 CUP P,0,MOVE$085
L32 LAB
 MST 2,4,4
 LOC   850
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LDC I,34
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 LDC I,35
 LOC   860
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 LOD I,2,448
 INC I,1
 CHK I,32,39
 LOC   870
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 LOC   880
 MST 2,4,4
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOC   890
 LOD I,2,448
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 LOD I,2,448
 INC I,1
 CHK I,32,39
 STR I,2,448
 MST 2,4,4
 LOD I,2,448
 LOC   900
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
L30 LAB
 LOD A,1,328
 CHK A,-1,0
 STR A,2,408
 MST 2,20,20
 LOD I,2,12
 CHK I,0,285
 PAR I
 LOC   910
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 LOC   920
 CUP P,10,EMITS104
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 PAR A
 LOC   930
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,408
 CHK A,-1,0
 PAR A
 LOC   940
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 LOC   950
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 LOC   960
 STO A
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,72
 LDC I,1
 CHK I,0,2
 LOC   970
 STO I
 MST 2,0,0
 CUP P,0,FINDR084
 LOD A,3,8
 INC A,84
 LDC I,0
 STO I
 LOD A,3,8
 INC A,88
 LOD I,1,35476
 LOC   980
 CHK I,0,31
 STO I
 LOD A,3,8
 INC A,8
 LDC I,1
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,12
 LDA 1,4736
 LOC   990
 MOV 12
 LOD A,3,8
 INC A,24
 LDA 1,4736
 MOV 12
 LOD A,3,8
 INC A,40
 LDC B,0
 STO B
 LOD A,3,8
 LOC  1000
 INC A,36
 LOD A,2,408
 CHK A,-1,0
 STO A
 UJP L5
L2 DEF        63
L3 DEF        72
L4 LAB
 UJP L6
 UJP L6
 UJP L6
 UJP L6
 UJP L19
 LOC  1010
 UJP L19
 UJP L19
 UJP L19
 UJP L19
 UJP L19
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE5214       3       0       0       0       0
 LOC     0
CASE5214 ENT P,3,L1  CASE5          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC    10
 INC I,1
 IXA 116
 IND I,4
 LDC I,5
 NEQ I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    20
 IND I,4
 LDC I,5
 NEQ I
 IOR
 FJP L7
 MST 2,4,4
 LDC I,4
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L7 LAB
 LOC    30
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 STR A,2,356
 LOC    40
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LDC I,0
 EQU I
 LOC    50
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LDC I,0
 EQU I
 AND
 FJP L8
 LOC    60
 LOD I,1,44
 LDC I,22
 EQU I
 FJP L9
 LDC I,1
 CHK I,0,1
 STR I,2,456
 UJP L10
L9 LAB
 LDC I,0
 CHK I,0,1
 LOC    70
 STR I,2,456
L10 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L11
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC    80
 INC I,1
 IXA 116
 IND I,64
 LOD I,2,456
 EQU I
 FJP L12
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 LOC    90
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   100
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOC   110
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 STO A
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 LOC   120
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,64
 LOD I,2,456
 STO I
 UJP L13
L12 LAB
L13 LAB
 MST 2,4,4
 LOC   130
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L14
L11 LAB
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 LOC   140
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L15
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   150
 PAR I
 CUP P,2,FREED090
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LOC   160
 LOD I,2,456
 EQU I
 FJP L16
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   170
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOC   180
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 STO A
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 LOC   190
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,64
 LOD I,2,456
 STO I
 UJP L17
L16 LAB
 LDA 1,35760
 LOC   200
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   210
 IXA 116
 MOV 116
 LOD I,1,35492
 LOD I,1,39472
 EQU I
 FJP L18
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   220
 STR I,1,35492
L18 LAB
L17 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L19
L15 LAB
 LOD I,1,44
 LDC I,3
 EQU I
 FJP L20
 LDC I,13
 CHK I,0,285
 LOC   230
 STR I,2,12
 UJP L21
L20 LAB
 LDC I,154
 CHK I,0,285
 STR I,2,12
L21 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 LOC   240
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   250
 CUP P,4,GET$O108
 MST 2,32,32
 LDA 2,444
 PAR A
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 LOC   260
 PAR A
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LDC B,0
 PAR B
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   270
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 LOC   280
 CUP P,4,FREER091
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 LOC   290
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LDC I,5
 CHK I,0,15
 LOC   300
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   310
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
L19 LAB
L14 LAB
 UJP L22
L8 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   320
 INC I,1
 IXA 116
 IND I,8
 LDC I,0
 EQU I
 FJP L23
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,372
 LOD I,1,39472
 LOC   330
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,2,368
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 LOD A,1,328
 LOC   340
 CHK A,-1,0
 STO A
 MST 2,4,4
 LOD I,2,368
 CHK I,-1,30
 PAR I
 CUP P,2,BINTV122
 UJP L24
L23 LAB
 LOD I,1,39472
 LDC I,1
 LOC   350
 SBI
 CHK I,-1,30
 STR I,2,372
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,368
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   360
 IXA 116
 IND I,8
 LDC I,0
 EQU I
 FJP L25
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,BINTV122
L25 LAB
L24 LAB
 LOC   370
 LOD I,1,44
 LDC I,3
 EQU I
 FJP L26
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND B,40
 LOC   380
 FJP L27
 MST 2,4,4
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,36
 CHK A,-1,0
 PAR A
 LOC   390
 CUP P,2,INVER045
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,40
 LDC B,0
 STO B
L27 LAB
 MST 2,4,4
 LOC   400
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,36
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 LOC   410
 STR A,2,400
 MST 2,4,4
 MST 2,4,4
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,36
 CHK A,-1,0
 LOC   420
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER044
 MST 2,4,4
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 LOC   430
 IXA 116
 IND A,0
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER044
 EQU A
 NOT
 FJP L28
 MST 2,4,4
 LCA 'PAND     001'
 LOC   440
 PAR A
 CUP P,2,ASSER003
L28 LAB
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,20
 CHK A,-1,0
 STR A,2,396
L29 LAB
 LOC   450
 LOD A,2,396
 LDC N
 NEQ A
 FJP L30
 MST 2,4,4
 LOD A,2,396
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 LOC   460
 STR A,2,392
 MST 2,8,8
 LOD A,2,396
 CHK A,-1,0
 PAR A
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   470
 IND A,0
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,392
 CHK A,-1,0
 STR A,2,396
 UJP L29
L30 LAB
 MST 2,12,12
 LDA 1,35760
 LOC   480
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,24
 PAR A
 LDA 1,35760
 LOD I,1,39472
 LOC   490
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,24
 PAR A
 LOD A,2,400
 CHK A,-1,0
 PAR A
 CUP P,6,ADD$J051
 LDA 1,35760
 LOC   500
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,12
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 LOC   510
 INC I,1
 IXA 116
 INC A,12
 MOV 12
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   520
 IXA 116
 INC A,36
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,36
 CHK A,-1,0
 STO A
 LOC   530
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,40
 LDA 1,35760
 LOD I,2,368
 LOC   540
 CHK J,-1,30
 INC I,1
 IXA 116
 IND B,40
 STO B
 UJP L31
L26 LAB
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 LOC   550
 IXA 116
 IND B,40
 NOT
 FJP L32
 MST 2,4,4
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   560
 IND A,36
 CHK A,-1,0
 PAR A
 CUP P,2,INVER045
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,40
 LOC   570
 LDC B,1
 STO B
L32 LAB
 MST 2,4,4
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,36
 CHK A,-1,0
 LOC   580
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,400
 MST 2,4,4
 MST 2,4,4
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 LOC   590
 IXA 116
 IND A,36
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER044
 MST 2,4,4
 LDA 1,35760
 LOC   600
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 PAR A
 CUP A,2,AFTER044
 EQU A
 NOT
 LOC   610
 FJP L33
 MST 2,4,4
 LCA 'PIOR     001'
 PAR A
 CUP P,2,ASSER003
L33 LAB
 LDA 1,35760
 LOD I,2,372
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   620
 IND A,32
 CHK A,-1,0
 STR A,2,396
L34 LAB
 LOD A,2,396
 LDC N
 NEQ A
 FJP L35
 MST 2,4,4
 LOD A,2,396
 CHK A,-1,0
 LOC   630
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,392
 MST 2,8,8
 LOD A,2,396
 CHK A,-1,0
 PAR A
 LDA 1,35760
 LOD I,2,368
 LOC   640
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,392
 CHK A,-1,0
 STR A,2,396
 LOC   650
 UJP L34
L35 LAB
 MST 2,12,12
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,12
 LOC   660
 PAR A
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,12
 PAR A
 LOD A,2,400
 CHK A,-1,0
 LOC   670
 PAR A
 CUP P,6,ADD$J051
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,24
 LOC   680
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,24
 MOV 12
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   690
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,36
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   700
 IND A,36
 CHK A,-1,0
 STO A
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   710
 INC A,40
 LDA 1,35760
 LOD I,2,368
 CHK J,-1,30
 INC I,1
 IXA 116
 IND B,40
 STO B
L31 LAB
 MST 2,4,4
 LOD I,1,39472
 LOC   720
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   730
 LOD A,2,356
 CHK A,-1,0
 STO A
L22 LAB
 UJP L5
L2 DEF         3
L3 DEF        22
L4 LAB
 UJP L6
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   740
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   750
 UJP L5
 UJP L5
 UJP L5
 UJP L6
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE6215       3       0       0       0       0
 LOC     0
CASE6215 ENT P,3,L1  CASE6          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC    10
 INC I,1
 IXA 116
 IND I,4
 LDC I,7
 NEQ I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    20
 IND I,4
 LDC I,7
 NEQ I
 IOR
 FJP L7
 MST 2,4,4
 LDC I,55
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 LOC    30
 UJP L8
L7 LAB
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 MST 2,4,4
 LOD I,1,39472
 LOC    40
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 FJP L9
 LOD I,1,44
 LDC I,11
 EQU I
 FJP L10
 LDA 1,35760
 LOC    50
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,44
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC    60
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND S,44
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC    70
 IND S,44
 DIF
 STO S
 UJP L11
L10 LAB
 LOD I,1,44
 LDC I,21
 EQU I
 FJP L12
 LDA 1,35760
 LOD I,1,39472
 LOC    80
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,44
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC    90
 CHK J,-1,30
 INC I,1
 IXA 116
 IND S,44
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND S,44
 LOC   100
 INT
 STO S
 UJP L13
L12 LAB
 LOD I,1,44
 LDC I,61
 EQU I
 FJP L14
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   110
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,44
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   120
 INC I,1
 IXA 116
 IND S,44
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND S,44
 UNI
 LOC   130
 STO S
 UJP L15
L14 LAB
 LDC B,0
 NOT
 FJP L16
 MST 2,4,4
 LCA 'PDIF,PINT001'
 PAR A
 CUP P,2,ASSER003
L16 LAB
L15 LAB
L13 LAB
L11 LAB
 MST 2,0,0
 LOC   140
 CUP P,0,POPTO129
 UJP L17
L9 LAB
 LOD I,1,44
 LDC I,11
 EQU I
 FJP L18
 LDC I,15
 CHK I,0,285
 STR I,2,12
 UJP L19
L18 LAB
 LOC   150
 LOD I,1,44
 LDC I,21
 EQU I
 FJP L20
 LDC I,14
 CHK I,0,285
 STR I,2,12
 UJP L21
L20 LAB
 LOD I,1,44
 LDC I,61
 LOC   160
 EQU I
 FJP L22
 LDC I,155
 CHK I,0,285
 STR I,2,12
 UJP L23
L22 LAB
 LDC B,0
 NOT
 FJP L24
 MST 2,4,4
 LOC   170
 LCA 'PDIF,PINT002'
 PAR A
 CUP P,2,ASSER003
L24 LAB
L23 LAB
L21 LAB
L19 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   180
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,32,32
 LOC   190
 LDA 2,444
 PAR A
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC B,1
 LOC   200
 PAR B
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOC   210
 CUP P,16,ALLOC107
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,0,0
 LOC   220
 CUP P,0,POPTO129
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOC   230
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 LOC   240
 PAR A
 LDC I,7
 CHK I,0,15
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L17 LAB
L8 LAB
 UJP L5
L25 LAB
 LOD I,1,44
 LOC   250
 LDC I,48
 EQU I
 FJP L26
 LOD I,1,39472
 CHK I,-1,30
 STR I,2,388
 UJP L27
L26 LAB
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   260
 CHK I,-1,30
 STR I,2,388
L27 LAB
 LDA 1,35760
 LOD I,2,388
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LDA 1,30964
 LOD A,3,8
 LOC   270
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 LOD A,3,8
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 LOC   280
 INN
 NOT
 AND
 FJP L28
 MST 2,4,4
 LDC I,56
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L28 LAB
 LOD A,3,8
 LOC   290
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 INN
 FJP L29
 LOD A,3,8
 IND I,4
 LDC I,5
 EQU I
 LOC   300
 LOD A,3,8
 IND I,8
 LDC I,1
 EQU I
 AND
 FJP L30
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOC   310
 CUP P,2,BJUMP120
L30 LAB
 LOD A,3,8
 INC A,4
 LDC I,8
 CHK I,0,15
 STO I
L29 LAB
 MST 2,8,8
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOC   320
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L31
 LOC   330
 LOD A,3,8
 INC A,4
 LDC I,7
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,44
 LOD A,3,8
 IND I,64
 CHK S,0,63
 LOC   340
 SGS
 STO S
 LOD A,3,8
 INC A,64
 LDC I,0
 STO I
 UJP L32
L31 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOC   350
 LDC I,1
 PAR I
 CUP P,4,IMM$O064
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOC   360
 MST 2,32,32
 LDA 2,444
 PAR A
 LDC I,165
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOC   370
 LDC B,1
 PAR B
 LDC B,1
 PAR B
 LDC B,0
 PAR B
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP P,16,ALLOC107
 LOC   380
 MST 2,8,8
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 MST 2,16,16
 LOD I,2,388
 LOC   390
 CHK I,-1,30
 PAR I
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 PAR A
 LDC I,7
 CHK I,0,15
 PAR I
 LOD I,2,444
 LOC   400
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L32 LAB
 LOD I,1,44
 LDC I,20
 EQU I
 FJP L33
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   410
 INC I,1
 IXA 116
 IND I,4
 LDC I,7
 NEQ I
 FJP L34
 MST 2,4,4
 LDC I,22
 CHK I,0,68
 PAR I
 LOC   420
 CUP P,2,ERROR005
L34 LAB
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 MST 2,4,4
 LOD I,1,39472
 LOC   430
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 AND
 FJP L35
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   440
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,8
 LOC   450
 LDC I,0
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   460
 INC I,1
 IXA 116
 IND S,44
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND S,44
 INT
 LOC   470
 LDC S,(0,0,0,0)
 NEQ S
 ORD
 STO I
 LOD A,3,8
 INC A,44
 LDC S,(0,0,0,0)
 STO S
 MST 2,0,0
 CUP P,0,POPTO129
 LOC   480
 UJP L36
L35 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 LOC   490
 STR A,2,356
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOC   500
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 MST 2,8,8
 LOD I,1,39472
 LDC I,1
 LOC   510
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,LOADS119
 LDA 1,35308
 LDC I,6
 CHK J,0,31
 LOC   520
 IXA 1
 IND B,0
 NOT
 LOD I,1,35492
 LOD I,1,39472
 LDC I,1
 SBI
 LES I
 AND
 FJP L37
 LOC   530
 MST 2,0,0
 CUP P,0,MOVE$085
L37 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,4,4
 LOC   540
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LOD A,1,328
 CHK A,-1,0
 STR A,2,408
 MST 2,20,20
 LDC I,196
 CHK I,0,285
 LOC   550
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LDC N
 CHK A,-1,0
 LOC   560
 PAR A
 CUP P,10,EMITS104
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 LOC   570
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,408
 CHK A,-1,0
 LOC   580
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   590
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 LOD A,2,356
 LOC   600
 CHK A,-1,0
 STO A
 LOD A,3,8
 INC A,4
 LDC I,5
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,8
 LDC I,1
 LOC   610
 CHK I,0,1
 STO I
 LOD A,3,8
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 MST 2,0,0
 CUP P,0,FINDR084
 LOD A,3,8
 LOC   620
 INC A,84
 LDC I,0
 STO I
 LOD A,3,8
 INC A,88
 LOD I,1,35476
 CHK I,0,31
 STO I
 LOD A,3,8
 INC A,12
 LOC   630
 LDA 1,4736
 MOV 12
 LOD A,3,8
 INC A,24
 LDA 1,4736
 MOV 12
 LOD A,3,8
 INC A,40
 LDC B,1
 STO B
 LOC   640
 LOD A,3,8
 INC A,36
 LOD A,2,408
 CHK A,-1,0
 STO A
L36 LAB
L33 LAB
 UJP L5
L38 LAB
 LOD I,1,72
 LDC I,1
 EQU I
 STR B,1,304
 LOC   650
 UJP L5
L2 DEF         4
L3 DEF        61
L4 LAB
 UJP L38
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L6
 UJP L5
 LOC   660
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L25
 UJP L6
 UJP L5
 LOC   670
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   680
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   690
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L25
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   700
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L6
L5 LAB
 RET P
L1 DEF        12
 SST P  CASE7216       3       0       0       0       0
 LOC     0
CASE7216 ENT P,3,L1  CASE7          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LOD I,1,72
 STR I,1,5024
 LOD I,1,72
 LDC I,0
 GRT I
 LOC    10
 FJP L7
 LOD B,1,305
 FJP L8
 MST 2,8,8
 LDC I,1
 CHK I,0,285
 PAR I
 LOD I,1,72
 PAR I
 CUP P,4,EMITF076
L8 LAB
L7 LAB
 LOC    20
 UJP L5
L9 LAB
 MST 2,12,12
 LDA 2,452
 PAR A
 MST 2,4,4
 LDA 1,112
 PAR A
 CUP I,2,LABEL028
 CHK I,1,99999
 PAR I
 LOC    30
 LDC I,1
 CHK I,0,1
 PAR I
 CUP P,6,UPD$L049
 LOD A,2,452
 CHK A,0,0
 STR A,3,8
 LOD A,3,8
 IND B,8
 FJP L10
 LOC    40
 MST 2,4,4
 LDC I,41
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L10 LAB
 LOD A,3,8
 INC A,8
 LDC B,1
 STO B
 LOD A,3,8
 LOC    50
 INC A,12
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,3,8
 IND B,28
 FJP L11
 LDC B,1
 STR B,1,35757
L11 LAB
 LOD A,3,8
 LOC    60
 IND A,24
 CHK A,-1,0
 STR A,2,396
L12 LAB
 LOD A,2,396
 LDC N
 NEQ A
 FJP L13
 MST 2,4,4
 LOD A,2,396
 CHK A,-1,0
 LOC    70
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,392
 MST 2,8,8
 LOD A,2,396
 CHK A,-1,0
 PAR A
 LOD A,3,8
 IND A,12
 LOC    80
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,392
 CHK A,-1,0
 STR A,2,396
 UJP L12
L13 LAB
 LOD A,3,8
 INC A,16
 LDA 1,4736
 LOC    90
 MOV 12
 UJP L5
L14 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LOC   100
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   110
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 IOR
 FJP L15
 MST 2,4,4
 LDC I,38
 LOC   120
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L15 LAB
 LOD I,1,72
 LDC I,225
 GEQ I
 FJP L16
 MST 2,4,4
 LDC I,34
 CHK I,32,39
 LOC   130
 PAR I
 CUP P,2,ALLOC078
 MST 2,4,4
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 MST 2,4,4
 LDC I,0
 INC I,1
 LOC   140
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 MST 2,4,4
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 LOC   150
 LDC I,34
 CHK I,32,39
 STR I,2,448
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 LOC   160
 PAR I
 CUP P,4,ADDR$075
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 1,4400
 PAR A
 LOC   170
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 LOC   180
 PAR A
 LDC I,34
 LDC I,4
 MPI
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LOC   190
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 INC I,1
 LOC   200
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,72
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   210
 PAR I
 CUP P,4,MOVE$110
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 PAR I
 LOC   220
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 LOC   230
 PAR I
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 LOC   240
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 LOC   250
 MST 2,12,12
 LDC I,23
 CHK I,0,285
 PAR I
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,4,4
 LOC   260
 LDC I,34
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 MST 2,4,4
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LOC   270
 LDC I,0
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 LOC   280
 PAR I
 CUP P,2,FREER082
 UJP L17
L16 LAB
 LOD I,1,72
 STR I,2,560
L18 LAB
 LOD I,2,560
 LDC I,128
 GEQ I
 FJP L19
 MST 2,8,8
 LOC   290
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,184
 LOC   300
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDC I,115
 CHK I,0,285
 PAR I
 LDA 2,240
 LOC   310
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOD I,2,560
 LDC I,128
 SBI
 STR I,2,560
 LOD I,2,560
 LDC I,0
 LOC   320
 GRT I
 FJP L20
 MST 2,8,8
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LDC I,128
 PAR I
 LOC   330
 CUP P,4,INCRE121
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,128
 PAR I
 CUP P,4,INCRE121
L20 LAB
 UJP L18
L19 LAB
 LOD I,2,560
 LOC   340
 LDC I,64
 GEQ I
 FJP L21
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 LOC   350
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LOC   360
 LDC I,114
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOD I,2,560
 LDC I,64
 LOC   370
 SBI
 STR I,2,560
 LOD I,2,560
 LDC I,0
 GRT I
 FJP L22
 MST 2,8,8
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   380
 CHK I,-1,30
 PAR I
 LDC I,64
 PAR I
 CUP P,4,INCRE121
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LDC I,64
 LOC   390
 PAR I
 CUP P,4,INCRE121
L22 LAB
L21 LAB
 LOD I,2,560
 LDC I,32
 GEQ I
 FJP L23
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LOC   400
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 LOC   410
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDC I,113
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOC   420
 CUP P,6,EMITX077
 LOD I,2,560
 LDC I,32
 SBI
 STR I,2,560
 LOD I,2,560
 LDC I,0
 GRT I
 FJP L24
 MST 2,8,8
 LOC   430
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LDC I,32
 PAR I
 CUP P,4,INCRE121
 MST 2,8,8
 LOD I,1,39472
 LOC   440
 CHK I,-1,30
 PAR I
 LDC I,32
 PAR I
 CUP P,4,INCRE121
L24 LAB
L23 LAB
 LOD I,2,560
 LDC I,0
 GRT I
 FJP L25
 MST 2,8,8
 LOC   450
 LDA 2,240
 PAR A
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,8,8
 LDA 2,184
 LOC   460
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$A138
 MST 2,12,12
 LDA 1,31252
 LOD I,2,560
 CHK J,1,32
 DEC I,1
 LOC   470
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
L25 LAB
L17 LAB
 MST 2,4,4
 LOC   480
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   490
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L26 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 LOC   500
 IXA 116
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12)
 INN
 NOT
 FJP L27
 MST 2,4,4
 LDC I,34
 LOC   510
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L27 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 LOC   520
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,96)
 INN
 FJP L28
 LOD A,3,8
 IND I,4
 LDC I,5
 EQU I
 LOC   530
 LOD A,3,8
 IND I,8
 LDC I,1
 EQU I
 AND
 FJP L29
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   540
 CUP P,2,BJUMP120
L29 LAB
 LOD A,3,8
 INC A,4
 LDC I,8
 CHK I,0,15
 STO I
L28 LAB
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC   550
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOC   560
 LOD I,1,72
 LDC I,1
 NEQ I
 FJP L30
 LDC B,0
 STR B,2,362
 LDC B,0
 STR B,2,361
 MST 2,4,4
 LOD I,1,72
 LOC   570
 PAR I
 CUP I,2,POWER031
 STR I,2,500
 LOD A,3,8
 IND A,0
 CHK A,-1,0
 STR A,2,356
L31 LAB
 LOD I,2,500
 LDC I,0
 GEQ I
 LOC   580
 LOD A,3,8
 IND I,68
 LDC I,0
 EQU I
 AND
 LOD A,3,8
 IND I,56
 LDC I,0
 EQU I
 AND
 LOC   590
 LOD A,3,8
 IND I,72
 LDC I,0
 EQU I
 LOD A,3,8
 IND I,72
 LDC I,1
 EQU I
 LOD A,3,8
 IND I,76
 LOC   600
 LOD I,2,500
 ADI
 LDC I,3
 LEQ I
 AND
 IOR
 AND
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   610
 PAR I
 CUP B,2,IS$CO006
 IOR
 FJP L32
 LDC B,1
 STR B,2,362
 UJP L33
L32 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   620
 PAR I
 CUP B,2,IS$CO127
 FJP L34
 LOD A,3,8
 IND I,64
 LOD I,1,72
 MPI
 STR I,2,496
 LOD A,3,8
 INC A,64
 LOC   630
 LDC I,0
 STO I
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDA 2,363
 LOC   640
 PAR A
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,363
 NOT
 NOT
 LOC   650
 FJP L35
 MST 2,4,4
 LCA 'PMPI     001'
 PAR A
 CUP P,2,ASSER003
L35 LAB
 LDC B,1
 STR B,2,361
 UJP L36
L34 LAB
 MST 2,12,12
 LDA 2,363
 LOC   660
 PAR A
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,6,FIT$I109
 LOD B,2,363
 FJP L37
 MST 2,4,4
 LOC   670
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L38
L37 LAB
 LDC I,0
 STR I,2,496
 MST 2,8,8
 LDA 2,240
 PAR A
 LOC   680
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 LDC B,1
 STR B,2,361
L38 LAB
L36 LAB
L33 LAB
 LOD B,2,362
 LOD B,2,361
 IOR
 FJP L31
 LOD B,2,361
 LOC   690
 FJP L39
 MST 2,16,16
 LDA 2,444
 PAR A
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 LOC   700
 PAR I
 CUP P,8,MULT$144
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,4,FREER091
 LOC   710
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LDC I,10
 CHK I,0,15
 PAR I
 LOC   720
 LOD I,2,444
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOD A,3,8
 INC A,64
 LOD I,2,496
 STO I
 UJP L40
L39 LAB
 LOD A,3,8
 LOC   730
 INC A,64
 LOD A,3,8
 IND I,64
 LOD I,1,72
 MPI
 STO I
 LOD A,3,8
 IND I,72
 LDC I,1
 LEQ I
 LOC   740
 LOD I,1,72
 LDC I,1
 EQU I
 IOR
 NOT
 FJP L41
 MST 2,4,4
 LCA 'PIXA     002'
 PAR A
 CUP P,2,ASSER003
L41 LAB
 LOC   750
 LOD A,3,8
 IND I,72
 LDC I,1
 EQU I
 FJP L42
 LOD A,3,8
 INC A,76
 LOD A,3,8
 IND I,76
 LOD I,2,500
 LOC   760
 ADI
 CHK I,0,3
 STO I
L42 LAB
 LOD A,3,8
 LOD A,2,356
 CHK A,-1,0
 STO A
L40 LAB
L30 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   770
 PAR I
 CUP B,2,IS$CO006
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDC I,0
 EQU I
 LOC   780
 AND
 FJP L43
 UJP L44
L43 LAB
L45 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 LOC   790
 GRT I
 FJP L46
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L45
L46 LAB
L47 LAB
 LDA 1,35760
 LOD I,1,39472
 LOC   800
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 GRT I
 FJP L48
 MST 2,4,4
 LOC   810
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L47
L48 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   820
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 GRT I
 FJP L49
L50 LAB
 LDA 1,35760
 LOD I,1,39472
 LOC   830
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 GRT I
 FJP L51
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   840
 PAR I
 CUP P,2,SIMPL111
 UJP L50
L51 LAB
L49 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 LOC   850
 GRT I
 FJP L52
L53 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LOC   860
 LDC I,1
 GRT I
 FJP L54
 MST 2,4,4
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 LOC   870
 UJP L53
L54 LAB
L52 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 LDA 1,35760
 LOC   880
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,56
 LDC I,0
 EQU I
 AND
 LOC   890
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,68
 LDC I,0
 EQU I
 AND
 LDA 1,35760
 LOC   900
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 LOC   910
 INC I,1
 IXA 116
 IND I,72
 ADI
 LDC I,2
 LEQ I
 AND
 NOT
 FJP L55
 MST 2,4,4
 LOC   920
 LCA 'PIXA     003'
 PAR A
 CUP P,2,ASSER003
L55 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   930
 INC A,64
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 LDA 1,35760
 LOC   940
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 ADI
 STO I
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC   950
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,0
 EQU I
 FJP L56
 LDA 1,35760
 LOD I,1,39472
 LOC   960
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 XJP L57
L61 LAB
 UJP L60
L62 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 LOC   970
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 LOC   980
 MOV 20
 UJP L60
L63 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 LOC   990
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,76
 MOV 20
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC  1000
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,96
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC  1010
 INC A,96
 MOV 20
 UJP L60
L57 DEF         0
L58 DEF         2
L59 LAB
 UJP L61
 UJP L62
 UJP L63
L60 LAB
 UJP L64
L56 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC  1020
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 EQU I
 FJP L65
 LDA 1,35760
 LOD I,1,39472
 LOC  1030
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDC I,1
 EQU I
 FJP L66
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 LOC  1040
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,96
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC  1050
 INC A,76
 MOV 20
L66 LAB
L65 LAB
L64 LAB
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 INC A,72
 LOC  1060
 LDA 1,35760
 LOD I,1,39472
 LDC I,1
 SBI
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 LDA 1,35760
 LOD I,1,39472
 LOC  1070
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,72
 ADI
 CHK I,0,2
 STO I
L44 LAB
 LOD I,1,35492
 LOD I,1,39472
 EQU I
 LOC  1080
 FJP L67
 LOD I,1,39472
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,1,35492
L67 LAB
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L5
L2 DEF        23
L3 DEF        33
L4 LAB
 UJP L26
 LOC  1090
 UJP L9
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L6
 UJP L5
 UJP L5
 UJP L14
L5 LAB
 LOC  1100
 RET P
L1 DEF        12
 SST P  CASE8217       3       0       0       0       0
 LOC     0
CASE8217 ENT P,3,L1  CASE8          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 MST 2,12,12
 LDA 2,452
 PAR A
 MST 2,4,4
 LDA 1,112
 LOC    10
 PAR A
 CUP I,2,LABEL028
 CHK I,1,99999
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 CUP P,6,UPD$L049
 LOD A,2,452
 CHK A,0,0
 LOC    20
 STR A,3,8
 LOD A,3,8
 IND B,8
 FJP L7
 MST 2,4,4
 LDC I,41
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L7 LAB
 LOD A,3,8
 LOC    30
 INC A,8
 LDC B,1
 STO B
 LOD A,3,8
 INC A,12
 LOD I,1,72
 STO I
 LOD A,3,8
 IND A,24
 CHK A,-1,0
 LOC    40
 STR A,2,396
L8 LAB
 LOD A,2,396
 LDC N
 NEQ A
 FJP L9
 MST 2,8,8
 LOD A,2,396
 CHK A,0,0
 IND A,4
 CHK A,-1,0
 LOC    50
 PAR A
 LOD A,3,8
 IND I,12
 PAR I
 CUP P,4,FIXOP048
 LOD A,2,396
 CHK A,0,0
 IND A,0
 CHK A,-1,0
 STR A,2,396
 LOC    60
 UJP L8
L9 LAB
 LOD A,3,8
 INC A,16
 LDA 1,4724
 MOV 12
 UJP L5
L10 LAB
 LOD I,1,72
 LDC I,0
 LEQ I
 FJP L11
 LOC    70
 MST 2,4,4
 LDC I,32
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L11 LAB
 LOD I,1,72
 LOD I,1,5028
 GRT I
 FJP L12
 LOD I,1,72
 LOC    80
 CHK I,0,8
 STR I,1,5028
 LDC I,29
 LOD I,1,5028
 LDC I,1
 SBI
 SBI
 CHK I,0,31
 STR I,1,35480
 MST 2,0,0
 LOC    90
 CUP P,0,CHECK088
L12 LAB
 LDA 1,39928
 LOD I,1,72
 CHK J,0,8
 IXA 48
 STR A,3,8
 LOD A,3,8
 LOD I,1,52
 CHK I,0,15
 STO I
 LOC   100
 LOD A,3,8
 INC A,4
 LDA 1,100
 MOV 12
 LOD A,3,8
 INC A,44
 LOD I,1,68
 STO I
 LOD A,3,8
 INC A,40
 LOC   110
 LOD I,1,64
 STO I
 LOD A,3,8
 INC A,36
 LOD I,1,60
 STO I
 LOD A,3,8
 INC A,28
 LOD I,1,56
 STO I
 LOC   120
 LOD A,3,8
 IND I,28
 LDC I,10
 LDC I,4
 MPI
 GRT I
 FJP L13
 MST 2,4,4
 LDC I,36
 CHK I,0,68
 LOC   130
 PAR I
 CUP P,2,ERROR005
L13 LAB
 LOD I,1,72
 LDC I,1
 EQU I
 FJP L14
 LOD A,3,8
 INC A,32
 LDC I,44
 STO I
 LOC   140
 LOD A,3,8
 INC A,24
 LDC I,172
 LDC I,44
 SBI
 STO I
 UJP L15
L14 LAB
 LOD A,3,8
 INC A,32
 LDC I,8
 LOC   150
 STO I
 LOD A,3,8
 INC A,24
 MST 2,8,8
 LDC I,-32
 LDC I,4
 MPI
 LOD A,3,8
 IND I,32
 ADI
 LOC   160
 LDC I,8
 SBI
 LDA 1,30868
 LOD A,3,8
 IND I,0
 CHK J,0,15
 IXA 4
 IND I,0
 ADI
 LOD A,3,8
 LOC   170
 IND I,44
 ADI
 LOD A,3,8
 IND I,40
 ADI
 NGI
 PAR I
 MST 2,8,8
 LDC I,-32
 LDC I,4
 LOC   180
 MPI
 NGI
 PAR I
 LOD A,3,8
 IND I,36
 LDC I,3
 LDC I,4
 MPI
 ADI
 LDC I,31
 LOC   190
 LDC I,4
 MPI
 SBI
 PAR I
 CUP I,4,MIN00029
 PAR I
 CUP I,4,MAX00030
 STO I
L15 LAB
 LOD A,3,8
 INC A,20
 LOC   200
 LOD A,3,8
 IND I,32
 LDC I,8
 SBI
 LDA 1,30868
 LOD A,3,8
 IND I,0
 CHK J,0,15
 IXA 4
 IND I,0
 LOC   210
 ADI
 LOD A,3,8
 IND I,44
 ADI
 LOD A,3,8
 IND I,40
 ADI
 LOD A,3,8
 IND I,24
 ADI
 LOC   220
 STO I
 LOD A,3,8
 INC A,16
 LOD A,3,8
 IND I,32
 LOD A,3,8
 IND I,44
 ADI
 LOD A,3,8
 IND I,40
 LOC   230
 ADI
 LOD A,3,8
 IND I,24
 ADI
 STO I
 LOD B,1,280
 FJP L16
 MST 2,4,4
 LOD I,1,72
 PAR I
 LOC   240
 CUP P,2,PRINT013
L16 LAB
 UJP L5
L17 LAB
 MST 2,0,0
 CUP P,0,GEN$S177
 UJP L5
L18 LAB
 LDA 1,100
 LCA 'PCODE   '
 EQU M,8
 FJP L19
 LDC B,1
 LOC   250
 STR B,1,285
 UJP L20
L19 LAB
 LDA 1,100
 LCA 'S1CODE  '
 EQU M,8
 FJP L21
 LDA 1,88
 LDC I,1
 CHK J,1,8
 DEC I,1
 LOC   260
 IXA 1
 IND C,0
 LDC C,'P'
 EQU C
 FJP L22
 LDC B,1
 STR B,1,284
 UJP L23
L22 LAB
 LOD A,1,324
 CHK A,-1,0
 LOC   270
 STR A,2,552
 LOD I,1,4860
 STR I,2,556
L24 LAB
 LOD A,2,552
 LDC N
 NEQ A
 FJP L25
 MST 2,8,8
 LDA 2,556
 PAR A
 LOC   280
 LOD A,2,552
 CHK A,-1,0
 PAR A
 CUP P,4,DISAS007
 MST 2,4,4
 LOD A,2,552
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 LOC   290
 STR A,2,552
 UJP L24
L25 LAB
L23 LAB
 UJP L26
L21 LAB
 LDA 1,100
 LCA 'STACK   '
 EQU M,8
 FJP L27
 LDA 1,88
 LDC I,1
 CHK J,1,8
 LOC   300
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'P'
 EQU C
 FJP L28
 LDC B,1
 STR B,1,282
 UJP L29
L28 LAB
 MST 2,4,4
 LOC   310
 LOD I,1,72
 CHK I,-1,30
 PAR I
 CUP P,2,PRINT012
L29 LAB
 UJP L30
L27 LAB
 LDA 1,100
 LCA 'MST     '
 EQU M,8
 FJP L31
 LDA 1,88
 LOC   320
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'P'
 EQU C
 FJP L32
 LDC B,1
 STR B,1,281
 LOC   330
 UJP L33
L32 LAB
 MST 2,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT014
L33 LAB
 UJP L34
L31 LAB
 LDA 1,100
 LCA 'NEST    '
 EQU M,8
 FJP L35
 LOC   340
 LDA 1,88
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'P'
 EQU C
 FJP L36
 LDC B,1
 LOC   350
 STR B,1,280
 UJP L37
L36 LAB
 MST 2,4,4
 LOD I,1,72
 PAR I
 CUP P,2,PRINT013
L37 LAB
 UJP L38
L35 LAB
 LDA 1,100
 LCA 'SIMP    '
 EQU M,8
 LOC   360
 FJP L39
 LDA 1,88
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'P'
 EQU C
 FJP L40
 LOC   370
 LDC B,1
 STR B,1,283
 UJP L41
L40 LAB
 MST 2,4,4
 LOD I,1,72
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
L41 LAB
 UJP L42
L39 LAB
 MST 2,4,4
 LOC   380
 LDC I,28
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L42 LAB
L38 LAB
L34 LAB
L30 LAB
L26 LAB
L20 LAB
 UJP L5
L43 LAB
 LDA 1,100
 LCA 'S1CODE  '
 EQU M,8
 FJP L44
 LDC B,0
 LOC   390
 STR B,1,284
 UJP L45
L44 LAB
 LDA 1,100
 LCA 'PCODE   '
 EQU M,8
 FJP L46
 LDC B,0
 STR B,1,285
 UJP L47
L46 LAB
 LDA 1,100
 LOC   400
 LCA 'STACK   '
 EQU M,8
 FJP L48
 LDC B,0
 STR B,1,282
 UJP L49
L48 LAB
 LDA 1,100
 LCA 'MST     '
 EQU M,8
 FJP L50
 LOC   410
 LDC B,0
 STR B,1,281
 UJP L51
L50 LAB
 LDA 1,100
 LCA 'NEST    '
 EQU M,8
 FJP L52
 LDC B,0
 STR B,1,280
 UJP L53
L52 LAB
 LOC   420
 LDA 1,100
 LCA 'SIMP    '
 EQU M,8
 FJP L54
 LDC B,0
 STR B,1,283
 UJP L55
L54 LAB
 MST 2,4,4
 LDC I,28
 CHK I,0,68
 LOC   430
 PAR I
 CUP P,2,ERROR005
L55 LAB
L53 LAB
L51 LAB
L49 LAB
L47 LAB
L45 LAB
 UJP L5
L56 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,8
 LOD A,3,8
 LOC   440
 IND I,4
 ORD
 CHK S,0,63
 LDC S,(0,0,0,116)
 INN
 LDA 1,30964
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 1
 LOC   450
 IND B,0
 IOR
 NOT
 FJP L57
 MST 2,4,4
 LDC I,7
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L57 LAB
 LOD A,3,8
 LOC   460
 IND I,4
 LDC I,4
 EQU I
 FJP L58
 LOD I,1,72
 LDC I,0
 LES I
 FJP L59
 UJP L60
L59 LAB
 MST 2,4,4
 LOC   470
 LDC I,6
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L60 LAB
 UJP L61
L58 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 LOC   480
 FJP L62
 LOD A,3,8
 IND I,64
 LOD I,1,72
 LES I
 LOD A,3,8
 IND I,64
 LOD I,1,68
 GRT I
 IOR
 LOC   490
 FJP L63
 MST 2,4,4
 LDC I,6
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L63 LAB
 UJP L64
L62 LAB
 MST 2,8,8
 LDA 2,184
 PAR A
 LOC   500
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOD I,1,52
 LDC I,2
 EQU I
 FJP L65
 LOD A,3,8
 IND I,4
 LOC   510
 LDC I,2
 NEQ I
 FJP L66
 MST 2,4,4
 LDC I,2
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L66 LAB
 LOD I,1,72
 LDC I,0
 LOC   520
 LES I
 FJP L67
 LOD A,1,328
 CHK A,-1,0
 STR A,2,408
 MST 2,8,8
 LDA 2,240
 PAR A
 LDC I,-1
 PAR I
 LOC   530
 CUP P,4,IMM$O064
 MST 2,20,20
 LDC I,182
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,240
 PAR A
 LOC   540
 LDA 2,184
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 LOD A,1,328
 CHK A,-1,0
 STR A,2,404
 MST 2,20,20
 LOC   550
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LOC   560
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,408
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 LOC   570
 PAR A
 CUP P,4,FIXSO046
L67 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LDC I,124
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,1,328
 LOC   580
 CHK A,-1,0
 STR A,2,420
 MST 2,20,20
 LDC I,186
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,184
 LOC   590
 PAR A
 LDA 2,240
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LDA 2,240
 PAR A
 LOC   600
 LDC I,124
 LDC I,4
 ADI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,1,328
 CHK A,-1,0
 STR A,2,416
 MST 2,20,20
 LOC   610
 LDC I,185
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,184
 PAR A
 LDA 2,240
 PAR A
 LOC   620
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LOD A,2,420
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 LOC   630
 PAR A
 CUP P,4,FIXSO046
 MST 2,20,20
 LDC I,61
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 LOC   640
 PAR A
 LDA 1,4400
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,416
 CHK A,-1,0
 LOC   650
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 LOD I,1,72
 LDC I,0
 LES I
 FJP L68
 MST 2,8,8
 LOC   660
 LOD A,2,404
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
L68 LAB
 UJP L69
L65 LAB
 MST 2,8,8
 LDA 2,240
 LOC   670
 PAR A
 LOD I,1,72
 PAR I
 CUP P,4,IMM$O064
 LOD A,1,328
 CHK A,-1,0
 STR A,2,420
 MST 2,20,20
 LDA 1,35188
 LDA 1,30804
 LOC   680
 LOD A,3,8
 IND I,4
 CHK J,0,15
 IXA 4
 IND I,0
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,72
 CHK J,67,72
 LOC   690
 DEC I,67
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,184
 PAR A
 LOC   700
 LDA 2,240
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,68
 LOC   710
 PAR I
 CUP P,4,IMM$O064
 LOD A,1,328
 CHK A,-1,0
 STR A,2,416
 MST 2,20,20
 LDA 1,35188
 LDA 1,30804
 LOD A,3,8
 IND I,4
 LOC   720
 CHK J,0,15
 IXA 4
 IND I,0
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,71
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC   730
 IND I,0
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,184
 PAR A
 LDA 2,240
 PAR A
 LOC   740
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 MST 2,8,8
 LOD A,2,420
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 LOC   750
 PAR A
 CUP P,4,FIXSO046
 MST 2,20,20
 LDC I,61
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 LOC   760
 PAR A
 LDA 1,4400
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,416
 CHK A,-1,0
 LOC   770
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
L69 LAB
L64 LAB
L61 LAB
 UJP L5
L70 LAB
 LOD I,1,39472
 LDC I,1
 LDC I,1
 SBI
 LOC   780
 NEQ I
 FJP L71
 MST 2,4,4
 LDC I,66
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L71 LAB
 LOD A,1,328
 CHK A,-1,0
 STR A,2,404
 LOC   790
 LOD B,1,35757
 ORD
 CHK I,0,1
 STR I,2,464
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LOD I,2,464
 CHK I,0,1
 LOC   800
 PAR I
 LDA 1,4512
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOC   810
 LOD A,2,404
 CHK A,-1,0
 PAR A
 MST 2,4,4
 LDA 1,100
 PAR A
 CUP I,2,LABEL028
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
 LOC   820
 UJP L5
L72 LAB
 LOD I,1,39472
 LDC I,1
 NEQ I
 FJP L73
 MST 2,4,4
 LDC I,16
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L73 LAB
 LOC   830
 MST 2,4,4
 LDA 1,100
 PAR A
 CUP I,2,LABEL028
 CHK I,1,99999
 STR I,2,536
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 LOC   840
 IXA 116
 STR A,3,8
 LOD A,3,8
 IND I,4
 LDC I,5
 NEQ I
 FJP L74
 MST 2,4,4
 LDC I,15
 CHK I,0,68
 LOC   850
 PAR I
 CUP P,2,ERROR005
L74 LAB
 LOD A,3,8
 IND I,8
 LDC I,0
 EQU I
 FJP L75
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 LOC   860
 PAR I
 CUP B,2,IS$CO006
 FJP L76
 LOD A,3,8
 IND I,64
 LDC I,1
 EQU I
 FJP L77
 UJP L78
L77 LAB
 LOD A,1,328
 LOC   870
 CHK A,-1,0
 STR A,2,404
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 LOC   880
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,404
 CHK A,-1,0
 LOC   890
 PAR A
 LOD I,2,536
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
L78 LAB
 UJP L79
L76 LAB
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,1,39472
 LOC   900
 CHK I,-1,30
 PAR I
 CUP P,4,GET$O108
 LOD A,1,328
 CHK A,-1,0
 STR A,2,404
 MST 2,20,20
 LDC I,64
 CHK I,0,285
 PAR I
 LOC   910
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 2,240
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 LOC   920
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,404
 CHK A,-1,0
 PAR A
 LOD I,2,536
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
L79 LAB
 UJP L80
L75 LAB
 LOC   930
 LOD A,3,8
 IND B,40
 FJP L81
 MST 2,4,4
 LOD A,3,8
 IND A,36
 CHK A,-1,0
 PAR A
 CUP P,2,INVER045
 LOD A,3,8
 LOC   940
 INC A,40
 LDC B,0
 STO B
L81 LAB
 LOD A,3,8
 IND A,20
 CHK A,-1,0
 STR A,2,396
L82 LAB
 LOD A,2,396
 LDC N
 NEQ A
 LOC   950
 FJP L83
 MST 2,4,4
 LOD A,2,396
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,392
 MST 2,8,8
 LOD A,2,396
 LOC   960
 CHK A,-1,0
 PAR A
 LOD A,1,328
 CHK A,-1,0
 PAR A
 CUP P,4,FIXJO047
 LOD A,2,392
 CHK A,-1,0
 STR A,2,396
 UJP L82
L83 LAB
 LOC   970
 LOD A,3,8
 IND A,32
 CHK A,-1,0
 STR A,2,396
L84 LAB
 LOD A,2,396
 LDC N
 NEQ A
 FJP L85
 MST 2,4,4
 LOD A,2,396
 LOC   980
 CHK A,-1,0
 PAR A
 CUP A,2,JUMPS009
 CHK A,-1,0
 STR A,2,392
 MST 2,8,8
 LOD A,2,396
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LOC   990
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
 LOD A,2,392
 CHK A,-1,0
 STR A,2,396
 UJP L84
L85 LAB
 MST 2,4,4
 LOD A,3,8
 IND A,36
 LOC  1000
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,2,400
 MST 2,8,8
 LOD A,2,400
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LOC  1010
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
L80 LAB
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 LOC  1020
 UJP L5
L86 LAB
 LOD I,1,39472
 LDC I,1
 NEQ I
 FJP L87
 MST 2,4,4
 LDC I,68
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L87 LAB
 LOC  1030
 MST 2,4,4
 LDA 1,100
 PAR A
 CUP I,2,LABEL028
 CHK I,1,99999
 STR I,2,536
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOC  1040
 LDC I,10
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP B,2,IS$CO006
 FJP L88
 LOC  1050
 MST 2,8,8
 LDA 2,296
 PAR A
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,64
 PAR I
 LOC  1060
 CUP P,4,IMM$O064
 MST 2,12,12
 LDA 2,240
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC  1070
 INC I,1
 IXA 116
 IND I,64
 NGI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 UJP L89
L88 LAB
 MST 2,8,8
 LDA 2,296
 LOC  1080
 PAR A
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,GET$S137
 LDA 2,240
 LDA 2,296
 MOV 56
 LDC I,1
 CHK I,0,1
 LOC  1090
 STR I,2,240
 LDC I,1
 CHK I,0,1
 STR I,2,264
 LDC I,3
 CHK I,0,3
 STR I,2,272
 LDC I,3
 CHK I,0,31
 STR I,2,280
 LOC  1100
 LDC I,0
 CHK I,-16777216,16777215
 STR I,2,340
L89 LAB
 LOD A,1,328
 CHK A,-1,0
 STR A,2,484
 MST 2,20,20
 LDC I,186
 CHK I,0,285
 PAR I
 LOC  1110
 LDC I,0
 CHK I,-8,7
 PAR I
 LDA 2,296
 PAR A
 LDA 1,4344
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 LOC  1120
 CUP P,10,EMITS104
 LOD A,1,328
 CHK A,-1,0
 STR A,2,480
 MST 2,20,20
 LDC I,185
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,-8,7
 LOC  1130
 PAR I
 LDA 2,296
 PAR A
 LDA 1,4344
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITS104
 LOD A,1,328
 LOC  1140
 CHK A,-1,0
 STR A,2,476
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 LOC  1150
 PAR A
 LDA 1,4400
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 LOD A,1,328
 CHK A,-1,0
 STR A,2,472
 LOC  1160
 MST 2,20,20
 LDC I,63
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 1,4512
 PAR A
 LDA 2,240
 LOC  1170
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,8,8
 LOD A,2,484
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LOC  1180
 CHK I,1,99999
 PAR I
 CUP P,4,OPND2055
 MST 2,8,8
 LOD A,2,484
 CHK A,-1,0
 PAR A
 LOD A,2,476
 CHK A,-1,0
 PAR A
 LOC  1190
 CUP P,4,FIXSO046
 MST 2,8,8
 LOD A,2,480
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LDC I,1
 ADI
 CHK I,1,99999
 PAR I
 LOC  1200
 CUP P,4,OPND2055
 MST 2,8,8
 LOD A,2,480
 CHK A,-1,0
 PAR A
 LOD A,2,472
 CHK A,-1,0
 PAR A
 CUP P,4,FIXSO046
 MST 2,8,8
 LOC  1210
 LOD A,2,476
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LDC I,3
 ADI
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$054
 MST 2,8,8
 LOC  1220
 LOD A,2,472
 CHK A,-1,0
 PAR A
 LOD I,2,536
 CHK I,1,99999
 PAR I
 CUP P,4,OPND2055
 MST 2,8,8
 LDA 1,452
 PAR A
 LOC  1230
 LOD A,2,472
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 MST 2,8,8
 LOD A,2,472
 CHK A,-1,0
 PAR A
 LOD I,2,536
 LDC I,2
 LOC  1240
 ADI
 CHK I,1,99999
 PAR I
 CUP P,4,JUMP$053
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 LOC  1250
 CUP P,0,POPTO129
 UJP L5
L2 DEF         5
L3 DEF        62
L4 LAB
 UJP L56
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L6
 UJP L5
 UJP L5
 LOC  1260
 UJP L5
 UJP L5
 UJP L72
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC  1270
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC  1280
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC  1290
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L10
 LOC  1300
 UJP L5
 UJP L17
 UJP L5
 UJP L5
 UJP L43
 UJP L18
 UJP L5
 UJP L70
 UJP L5
 UJP L86
L5 LAB
 LOC  1310
 RET P
L1 DEF        12
 SST P  CASE9218       3       0       0       0       0
 LOC     0
CASE9218 ENT P,3,L1  CASE9          1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LOD I,1,316
 LDC I,0
 GRT I
 FJP L7
 MST 2,0,0
 LOC    10
 CUP P,0,GEN$S177
L7 LAB
 LDA 1,5036
 LDA 1,112
 MOV 12
 LOD I,1,72
 CHK I,0,8
 STR I,1,5032
 MST 2,4,4
 LDA 1,100
 PAR A
 LOC    20
 CUP I,2,LABEL028
 CHK I,1,99999
 STR I,1,35752
 LDA 1,5012
 LDA 1,88
 MOV 8
 LOD I,1,60
 LDC I,1
 EQU I
 STR B,1,305
 LOC    30
 MST 2,0,0
 CUP P,0,INIT$176
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,3,8
 LOD A,3,8
 INC A,4
 LDA 1,112
 LOC    40
 NEQ M,12
 LOD A,3,8
 IND I,0
 LOD I,1,52
 NEQ I
 IOR
 FJP L8
 MST 2,4,4
 LDC I,60
 CHK I,0,68
 LOC    50
 PAR I
 CUP P,2,ERROR005
L8 LAB
 LDA 1,35500
 LOD I,1,5032
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 STR I,1,5048
 LOC    60
 LOD I,1,35480
 LOD I,1,5048
 LEQ I
 NOT
 FJP L9
 MST 2,4,4
 LCA 'PENT     001'
 PAR A
 CUP P,2,ASSER003
L9 LAB
 MST 2,4,4
 LOC    70
 LOD A,3,8
 IND I,28
 LDC I,4
 DVI
 CHK I,0,10
 PAR I
 CUP P,2,RESER089
 LDC I,8
 NGI
 LDA 1,30868
 LOC    80
 LOD A,3,8
 IND I,0
 CHK J,0,15
 IXA 4
 IND I,0
 ADI
 STR I,2,488
 LOD B,1,305
 NOT
 FJP L10
 LOC    90
 MST 2,8,8
 LDA 2,128
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 2,184
 PAR A
 LOC   100
 LDC I,30
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,20
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,1,328
 CHK A,-1,0
 LOC   110
 STR A,2,412
 MST 2,12,12
 LDC I,66
 CHK I,0,285
 PAR I
 LDA 2,128
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOC   120
 MST 2,8,8
 LDA 1,480
 PAR A
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 MST 2,8,8
 LDA 2,184
 PAR A
 LOC   130
 LOD I,2,488
 PAR I
 CUP P,4,EXTEN071
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 MST 2,12,12
 LDC I,10
 CHK I,0,285
 PAR I
 LOC   140
 LDA 1,4804
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LOD A,2,412
 CHK A,-1,0
 PAR A
 LOD I,1,35752
 LOC   150
 CHK I,1,99999
 PAR I
 CUP P,4,OPND2055
 MST 2,8,8
 LDA 1,480
 PAR A
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 LOC   160
 UJP L11
L10 LAB
 MST 2,8,8
 LDA 2,128
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 2,184
 LOC   170
 PAR A
 LDC I,30
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,20
 LDC I,4
 ADI
 CHK I,-16777216,16777215
 PAR I
 LOC   180
 CUP P,6,EXTEN073
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 MST 2,12,12
 LDC I,66
 CHK I,0,285
 PAR I
 LDA 2,128
 PAR A
 LOC   190
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 1,480
 PAR A
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 LOC   200
 MST 2,8,8
 LDA 2,240
 PAR A
 LDC I,33
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,8,8
 LOC   210
 LDA 2,184
 PAR A
 LOD I,2,488
 LDC I,4
 ADI
 PAR I
 CUP P,4,EXTEN071
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 LOC   220
 MST 2,12,12
 LDC I,12
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LOC   230
 LOD A,2,412
 CHK A,-1,0
 PAR A
 LOD I,1,35752
 CHK I,1,99999
 PAR I
 CUP P,4,OPND2055
 MST 2,8,8
 LDA 1,480
 PAR A
 LOC   240
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 MST 2,12,12
 LDA 2,184
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOC   250
 LDC I,0
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,12,12
 LDC I,66
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LOC   260
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
L11 LAB
 LOD A,3,8
 IND I,44
 LOD A,3,8
 IND I,28
 SBI
 STR I,2,492
 LOD I,2,492
 LOC   270
 LDC I,0
 GRT I
 FJP L12
 MST 2,4,4
 LDC I,34
 CHK I,32,39
 PAR I
 CUP P,2,ALLOC078
 MST 2,4,4
 LDC I,0
 LOC   280
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 MST 2,4,4
 LDC I,0
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 MST 2,4,4
 LOC   290
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
 LDC I,34
 CHK I,32,39
 STR I,2,448
 MST 2,8,8
 LOC   300
 LDA 2,240
 PAR A
 LOD I,2,448
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 MST 2,12,12
 LDC I,75
 LOC   310
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 1,4400
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LOC   320
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 PAR A
 LDC I,34
 LDC I,4
 MPI
 LOC   330
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 LOC   340
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LOC   350
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,24
 LOD A,3,8
 IND I,40
 ADI
 LOC   360
 LOD A,3,8
 IND I,44
 ADI
 NGI
 LOD A,3,8
 IND I,28
 ADI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LOC   370
 MST 2,12,12
 LDC I,66
 CHK I,0,285
 PAR I
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LOC   380
 LDA 2,72
 PAR A
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 2,184
 LOC   390
 PAR A
 LOD I,2,492
 PAR I
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,72
 PAR A
 LOC   400
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,72
 PAR A
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC   410
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,20
 NGI
 LDC I,4
 LOC   420
 ADI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 MST 2,12,12
 LDC I,23
 CHK I,0,285
 LOC   430
 PAR I
 LDA 2,72
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 1,468
 PAR A
 LOD A,2,412
 LOC   440
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 MST 2,4,4
 LDC I,34
 CHK I,32,39
 PAR I
 CUP P,2,FREEG079
 MST 2,4,4
 LDC I,0
 LOC   450
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LDC I,0
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
 MST 2,4,4
 LOC   460
 LDC I,0
 INC I,1
 INC I,1
 CHK I,0,31
 PAR I
 CUP P,2,FREER082
L12 LAB
 UJP L5
L13 LAB
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 LOC   470
 IXA 48
 STR A,3,8
 LOD A,3,8
 IND I,0
 LOD I,1,52
 NEQ I
 FJP L14
 MST 2,4,4
 LDC I,61
 CHK I,0,68
 LOC   480
 PAR I
 CUP P,2,ERROR005
L14 LAB
 LOD I,1,52
 LDC I,14
 NEQ I
 FJP L15
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 LOC   490
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,20
 NGI
 LDC I,0
 ADI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LOC   500
 MST 2,12,12
 LDA 1,31060
 LOD I,1,52
 CHK J,0,15
 IXA 4
 IND I,0
 CHK I,0,285
 PAR I
 LDA 1,4748
 PAR A
 LOC   510
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
L15 LAB
 MST 2,8,8
 LDA 2,128
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC   520
 LOD B,1,305
 FJP L16
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LDC I,4
 NGI
 LOC   530
 LOD A,3,8
 IND I,20
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 MST 2,8,8
 LDA 2,240
 PAR A
 LDC I,33
 LOC   540
 LDC I,4
 MPI
 CHK I,0,1073741823
 PAR I
 CUP P,4,ADDR$075
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 MST 2,12,12
 LDC I,75
 LOC   550
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 1,468
 PAR A
 LOC   560
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOC   570
 LDC I,4
 NGI
 LOD A,3,8
 IND I,20
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOD A,1,328
 CHK A,-1,0
 LOC   580
 STR A,2,412
 MST 2,12,12
 LDC I,164
 CHK I,0,285
 PAR I
 LDA 2,128
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOC   590
 MST 2,8,8
 LDA 1,468
 PAR A
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
 UJP L17
L16 LAB
 MST 2,12,12
 LDA 2,184
 LOC   600
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,3,8
 IND I,20
 NGI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,EXTEN073
 LOC   610
 LOD A,1,328
 CHK A,-1,0
 STR A,2,412
 MST 2,12,12
 LDC I,164
 CHK I,0,285
 PAR I
 LDA 2,128
 PAR A
 LDA 2,184
 LOC   620
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 1,468
 PAR A
 LOD A,2,412
 CHK A,-1,0
 PAR A
 CUP P,4,ADD$C050
L17 LAB
 UJP L5
L18 LAB
 LOC   630
 LOD I,1,39924
 LDC I,1
 ADI
 CHK I,0,15
 STR I,1,39924
 LOD I,1,39924
 LDC I,15
 GRT I
 FJP L19
 MST 2,4,4
 LOC   640
 LDC I,18
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L20
L19 LAB
 LDA 1,39476
 LOD I,1,39924
 CHK J,0,15
 IXA 28
 STR A,3,8
 LOC   650
 LOD A,3,8
 LOD I,1,72
 CHK I,1,8
 STO I
 LOD A,3,8
 INC A,4
 LOD I,1,39472
 CHK I,-1,30
 STO I
 LOD A,3,8
 LOC   660
 INC A,8
 MST 2,0,0
 CUP I,0,CURRE086
 CHK I,0,10
 STO I
 LOD A,3,8
 INC A,16
 LOD I,1,68
 STO I
 LOD A,3,8
 LOC   670
 INC A,12
 LOD I,1,64
 STO I
 LOD A,3,8
 INC A,24
 LOD A,1,328
 CHK A,-1,0
 STO A
 LDA 1,39476
 LOD I,1,39924
 LOC   680
 LDC I,1
 SBI
 CHK J,0,15
 IXA 28
 IND I,20
 STR I,2,532
 LDA 1,39476
 LOD I,1,39924
 LDC I,1
 SBI
 LOC   690
 CHK J,0,15
 IXA 28
 IND I,4
 LDC I,1
 ADI
 CHK I,-1,30
 STR I,2,388
 LOD I,1,39472
 CHK I,-1,30
 STR I,3,8
 LOC   700
 LOD I,2,388
 LOD I,3,8
 LEQ I
 FJP L22
L21 LAB
 LDA 1,35760
 LOD I,2,388
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,12
 LOC   710
 LOD A,3,12
 IND I,72
 LDC I,0
 GRT I
 FJP L23
 LOD A,3,12
 IND I,4
 LDC I,5
 EQU I
 LOD A,3,12
 LOC   720
 IND I,8
 LDC I,1
 EQU I
 AND
 FJP L24
 LOD I,2,532
 LDC I,4
 ADI
 STR I,2,532
 MST 2,12,12
 LOC   730
 LDA 2,240
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 IND I,20
 LOC   740
 NGI
 LOD I,2,532
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,8,8
 LDA 2,128
 PAR A
 LOD A,3,12
 LOC   750
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LOC   760
 LDA 2,128
 PAR A
 CUP P,6,EMITX077
 UJP L25
L24 LAB
 LDA 1,30932
 LOD A,3,12
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOC   770
 FJP L26
 LOD I,2,532
 LDC I,8
 ADI
 STR I,2,532
 UJP L27
L26 LAB
 LOD I,2,532
 LDC I,4
 ADI
 STR I,2,532
L27 LAB
 LOC   780
 MST 2,12,12
 LDA 2,240
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 LOC   790
 IND I,20
 NGI
 LOD I,2,532
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,8,8
 LDA 2,240
 PAR A
 LOC   800
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM117
 NOT
 LOC   810
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM118
 NOT
 AND
 FJP L28
 LDA 1,30932
 LOD A,3,12
 LOC   820
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L29
 MST 2,0,0
 CUP P,0,FINDR083
 UJP L30
L29 LAB
 MST 2,0,0
 CUP P,0,FINDR084
L30 LAB
 LOC   830
 MST 2,16,16
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOD A,3,12
 IND A,0
 CHK A,-1,0
 PAR A
 LOD A,3,12
 IND I,4
 LOC   840
 CHK I,0,15
 PAR I
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
L28 LAB
L25 LAB
L23 LAB
 LOD I,2,388
 LOD I,3,8
 NEQ I
 FJP L22
 LOC   850
 LOD I,2,388
 INC I,1
 CHK I,-1,30
 STR I,2,388
 UJP L21
L22 LAB
 MST 2,0,0
 CUP P,0,FREE$095
 LDA 1,39476
 LOD I,1,39924
 CHK J,0,15
 LOC   860
 IXA 28
 STR A,3,8
 LOD A,3,8
 IND I,12
 LDC I,4
 DVI
 CHK I,0,10
 STR I,2,528
 LOD A,3,8
 IND I,8
 LOC   870
 LOD I,2,528
 LES I
 FJP L31
 MST 2,4,4
 LOD I,2,528
 CHK I,0,10
 PAR I
 CUP P,2,RESER089
L31 LAB
 LOD A,3,8
 INC A,20
 LOC   880
 LOD I,2,532
 STO I
 LOD I,2,532
 LOD I,1,464
 GRT I
 FJP L32
 LOD I,2,532
 STR I,1,464
L32 LAB
L20 LAB
 UJP L5
L33 LAB
 MST 2,0,0
 LOC   890
 CUP P,0,CALLS199
 UJP L5
L34 LAB
 MST 2,8,8
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD I,1,52
 CHK I,0,15
 PAR I
 CUP P,4,COERC114
 LOC   900
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 LDC I,5
 EQU I
 FJP L35
 LDA 1,35760
 LOC   910
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,8
 LDC I,1
 EQU I
 FJP L36
 MST 2,4,4
 LOD I,1,39472
 LOC   920
 CHK I,-1,30
 PAR I
 CUP P,2,BJUMP120
L36 LAB
L35 LAB
 UJP L5
L2 DEF         7
L3 DEF        44
L4 LAB
 UJP L33
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   930
 UJP L6
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   940
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 LOC   950
 UJP L5
 UJP L5
 UJP L18
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L5
 UJP L34
 LOC   960
 UJP L5
 UJP L13
L5 LAB
 RET P
L1 DEF        16
 SST P  CASE1219       3       0       0       0       0
 LOC     0
CASE1219 ENT P,3,L1  CASE10         1 1 1
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L2
L6 LAB
 LDA 1,39476
 LOD I,1,39924
 CHK J,0,15
 IXA 28
 STR A,3,8
 LOC    10
 LDA 1,39928
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,3,12
 LOD A,3,8
 IND I,4
 LDC I,1
 ADI
 CHK I,-1,30
 LOC    20
 STR I,2,384
 LOD A,3,8
 IND A,24
 CHK A,-1,0
 STR A,2,356
 LDC I,0
 CHK I,0,34359738367
 STR I,2,524
 LOD A,3,12
 IND I,28
 LOC    30
 LDC I,4
 DVI
 LDC I,1
 SBI
 CHK I,-1,9
 STR I,2,520
 LOD A,3,8
 IND I,12
 LDC I,4
 DVI
 LOC    40
 LDC I,1
 SBI
 CHK I,-1,9
 STR I,2,516
 LOD A,3,12
 IND I,28
 LDC I,0
 GRT I
 FJP L7
L8 LAB
 LOD I,2,524
 LOC    50
 LOD I,2,520
 LEQ I
 LOD I,2,524
 LOD I,2,516
 LEQ I
 AND
 LOD I,2,384
 LOD I,1,39472
 LEQ I
 AND
 LOC    60
 FJP L9
 LDA 1,35760
 LOD I,2,384
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,16
 MST 2,12,12
 LDA 2,240
 PAR A
 LOC    70
 LDA 1,35500
 LOD I,1,5032
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 LOD A,3,12
 IND I,24
 LOC    80
 NGI
 LOD A,3,12
 IND I,40
 SBI
 LOD A,3,12
 IND I,44
 SBI
 LOD I,2,524
 LDC I,4
 MPI
 LOC    90
 ADI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,8,8
 LOD I,2,384
 CHK I,-1,30
 PAR I
 LOD I,2,524
 CHK I,0,34359738367
 LOC   100
 PAR I
 CUP P,4,PARMR123
 LDA 1,30948
 LOD A,3,16
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 MST 2,4,4
 LOD I,2,384
 LOC   110
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM116
 LDA 1,30932
 LOD A,3,16
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 NOT
 LOC   120
 AND
 IOR
 FJP L10
 MST 2,12,12
 LDA 2,240
 PAR A
 LDA 1,35532
 LOD I,2,524
 CHK J,0,9
 IXA 4
 LOC   130
 IND I,0
 CHK I,0,31
 PAR I
 LOD I,2,384
 CHK I,-1,30
 PAR I
 CUP P,6,SLR$Q139
 UJP L11
L10 LAB
 MST 2,8,8
 LDA 2,128
 LOC   140
 PAR A
 LDA 1,35532
 LOD I,2,524
 CHK J,0,9
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LDA 1,30932
 LOC   150
 LOD A,3,16
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 LOD I,2,524
 LOD I,2,520
 EQU I
 NOT
 AND
 LOC   160
 FJP L12
 LDC I,82
 CHK I,0,285
 STR I,2,8
 UJP L13
L12 LAB
 LDC I,75
 CHK I,0,285
 STR I,2,8
L13 LAB
 MST 2,12,12
 LOD I,2,8
 LOC   170
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,128
 PAR A
 CUP P,6,EMITX077
 MST 2,8,8
 LDA 2,128
 PAR A
 LOC   180
 LOD I,2,384
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
L11 LAB
 MST 2,4,4
 LOD I,2,384
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LDA 1,30932
 LOC   190
 LOD A,3,16
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L14
 LOD I,2,524
 LDC I,2
 ADI
 CHK I,0,34359738367
 LOC   200
 STR I,2,524
 UJP L15
L14 LAB
 LOD I,2,524
 LDC I,1
 ADI
 CHK I,0,34359738367
 STR I,2,524
L15 LAB
 LOD I,2,384
 LDC I,1
 ADI
 LOC   210
 CHK I,-1,30
 STR I,2,384
 UJP L8
L9 LAB
 LOD I,2,524
 CHK I,0,10
 STR I,2,512
 LOD I,2,512
 LOD I,2,520
 LEQ I
 FJP L16
 LOC   220
 MST 2,12,12
 LDA 2,240
 PAR A
 LDA 1,35500
 LOD I,1,5032
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 LOC   230
 PAR I
 LOD A,3,12
 IND I,24
 NGI
 LOD A,3,12
 IND I,40
 SBI
 LOD A,3,12
 IND I,44
 SBI
 LOC   240
 LOD I,2,512
 LDC I,4
 MPI
 ADI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,8,8
 LDA 2,128
 PAR A
 LOC   250
 LDA 1,35532
 LOD I,2,512
 CHK J,0,9
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 1,31380
 LOC   260
 LOD I,2,520
 LOD I,2,512
 SBI
 LDC I,1
 ADI
 CHK J,1,32
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,285
 LOC   270
 PAR I
 LDA 2,240
 PAR A
 LDA 2,128
 PAR A
 CUP P,6,EMITX077
 LOD I,2,520
 LDC I,1
 ADI
 CHK I,0,10
 LOC   280
 STR I,2,512
L16 LAB
L7 LAB
L17 LAB
 LOD I,2,524
 LOD I,2,516
 LEQ I
 LOD I,2,384
 LOD I,1,39472
 LEQ I
 AND
 FJP L18
 MST 2,8,8
 LOC   290
 LDA 2,128
 PAR A
 LDA 1,35532
 LOD I,2,524
 CHK J,0,9
 IXA 4
 IND I,0
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC   300
 MST 2,8,8
 LOD I,2,384
 CHK I,-1,30
 PAR I
 LOD I,2,524
 CHK I,0,34359738367
 PAR I
 CUP P,4,PARMR123
 MST 2,8,8
 LDA 2,128
 LOC   310
 PAR A
 LOD I,2,384
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 LDA 1,30932
 LDA 1,35760
 LOD I,2,384
 CHK J,-1,30
 INC I,1
 LOC   320
 IXA 116
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L19
 LOD I,2,524
 LDC I,2
 ADI
 CHK I,0,34359738367
 LOC   330
 STR I,2,524
 UJP L20
L19 LAB
 LOD I,2,524
 LDC I,1
 ADI
 CHK I,0,34359738367
 STR I,2,524
L20 LAB
 MST 2,4,4
 LOD I,2,384
 CHK I,-1,30
 LOC   340
 PAR I
 CUP P,2,FREED090
 LOD I,2,384
 LDC I,1
 ADI
 CHK I,-1,30
 STR I,2,384
 UJP L17
L18 LAB
 LOD I,2,524
 LOD I,2,516
 LOC   350
 LDC I,1
 ADI
 GRT I
 FJP L21
 MST 2,4,4
 LDC I,52
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L21 LAB
 LOD I,2,384
 LOC   360
 LOD I,1,39472
 LEQ I
 FJP L22
 LOD A,3,8
 IND I,16
 LOD A,3,8
 IND I,12
 SBI
 LDC I,2
 LDC I,4
 LOC   370
 MPI
 ADI
 LDC I,4
 ADI
 STR I,2,468
 MST 2,8,8
 LDA 2,184
 PAR A
 LOD I,2,468
 PAR I
 LOC   380
 CUP P,4,IMM$O064
 MST 2,12,12
 LDC I,10
 CHK I,0,285
 PAR I
 LDA 1,4804
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 LOC   390
 LOD A,3,8
 IND I,16
 NGI
 LOD I,2,524
 LDC I,4
 MPI
 ADI
 STR I,2,532
L23 LAB
 LOD I,2,384
 LOD I,1,39472
 LOC   400
 LEQ I
 FJP L24
 MST 2,8,8
 LOD I,2,384
 CHK I,-1,30
 PAR I
 LOD I,2,524
 CHK I,0,34359738367
 PAR I
 CUP P,4,PARMR123
 LOC   410
 MST 2,12,12
 LDA 2,240
 PAR A
 LDC I,30
 CHK I,0,31
 PAR I
 LOD I,2,532
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 LOC   420
 MST 2,8,8
 LDA 2,240
 PAR A
 LOD I,2,384
 CHK I,-1,30
 PAR I
 CUP P,4,MOVE$110
 MST 2,4,4
 LOD I,2,384
 CHK I,-1,30
 LOC   430
 PAR I
 CUP P,2,FREED090
 LDA 1,30932
 LDA 1,35760
 LOD I,2,384
 CHK J,-1,30
 INC I,1
 IXA 116
 IND I,4
 CHK J,0,15
 LOC   440
 IXA 1
 IND B,0
 FJP L25
 LOD I,2,524
 LDC I,2
 ADI
 CHK I,0,34359738367
 STR I,2,524
 LOD I,2,532
 LDC I,8
 LOC   450
 ADI
 STR I,2,532
 UJP L26
L25 LAB
 LOD I,2,524
 LDC I,1
 ADI
 CHK I,0,34359738367
 STR I,2,524
 LOD I,2,532
 LDC I,4
 LOC   460
 ADI
 STR I,2,532
L26 LAB
 LOD I,2,384
 LDC I,1
 ADI
 CHK I,-1,30
 STR I,2,384
 UJP L23
L24 LAB
 MST 2,8,8
 LDA 2,184
 LOC   470
 PAR A
 LOD I,2,468
 PAR I
 CUP P,4,IMM$O064
 MST 2,16,16
 LDC I,265
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,3
 LOC   480
 PAR I
 LDA 1,4804
 PAR A
 LDA 2,184
 PAR A
 CUP P,8,EMITT106
L22 LAB
L27 LAB
 LOD I,1,39472
 LOD A,3,8
 IND I,4
 GRT I
 LOC   490
 FJP L28
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L27
L28 LAB
 LOD I,2,524
 LOD A,3,8
 IND I,16
 LDC I,4
 DVI
 NEQ I
 LOC   500
 FJP L29
 LOD I,2,524
 LOD A,3,8
 IND I,16
 LDC I,4
 DVI
 LES I
 FJP L30
 MST 2,4,4
 LDC I,24
 LOC   510
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L31
L30 LAB
 MST 2,4,4
 LDC I,39
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L31 LAB
L29 LAB
 MST 2,8,8
 LOC   520
 LDA 2,128
 PAR A
 LDA 1,35500
 LOD A,3,8
 IND I,0
 CHK J,1,8
 DEC I,1
 IXA 4
 IND I,0
 CHK I,0,31
 LOC   530
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 2,184
 PAR A
 LDC I,3
 CHK I,0,31
 PAR I
 LOD I,1,4860
 CHK I,0,1073741823
 LOC   540
 PAR I
 CUP P,6,EXT$R074
 LDC I,4
 CHK I,0,5
 STR I,2,232
 MST 2,8,8
 LDA 2,236
 PAR A
 LDA 1,100
 PAR A
 LOC   550
 CUP P,4,UPD$P132
 MST 2,20,20
 LDC I,65
 CHK I,0,285
 PAR I
 LDC I,0
 CHK I,0,1
 PAR I
 LDA 2,128
 PAR A
 LOC   560
 LDA 2,184
 PAR A
 LDC N
 CHK A,-1,0
 PAR A
 CUP P,10,EMITJ105
 MST 2,4,4
 LOD A,3,8
 IND I,8
 CHK I,0,10
 LOC   570
 PAR I
 CUP P,2,RESER089
 LDA 1,39476
 LOD I,1,39924
 LDC I,1
 SBI
 CHK J,0,15
 IXA 28
 STR A,3,8
 LDA 1,39928
 LOC   580
 LOD I,1,5032
 CHK J,0,8
 IXA 48
 STR A,3,12
 LOD A,3,8
 IND I,20
 STR I,2,532
 LDC B,0
 STR B,2,540
 LOD A,3,8
 LOC   590
 IND I,4
 LDC I,1
 ADI
 CHK I,-1,30
 STR I,2,388
 LOD I,1,39472
 CHK I,-1,30
 STR I,3,16
 LOD I,2,388
 LOD I,3,16
 LOC   600
 LEQ I
 FJP L33
L32 LAB
 LDA 1,35760
 LOD I,2,388
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,20
 LOD A,3,20
 IND I,72
 LOC   610
 LDC I,0
 GRT I
 FJP L34
 LOD A,3,20
 IND I,4
 LDC I,5
 EQU I
 LOD A,3,20
 IND I,8
 LDC I,1
 LOC   620
 EQU I
 AND
 FJP L35
 MST 2,8,8
 LDA 2,128
 PAR A
 LOD A,3,20
 IND I,88
 CHK I,0,31
 PAR I
 LOC   630
 CUP P,4,REG$O063
 LOD I,2,532
 LDC I,4
 ADI
 STR I,2,532
 MST 2,4,4
 LOD A,3,20
 IND I,88
 CHK I,0,31
 PAR I
 LOC   640
 CUP P,2,ALLOC080
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,3,12
 IND I,20
 NGI
 LOC   650
 LOD I,2,532
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LDC I,75
 CHK I,0,285
 PAR I
 LDA 2,128
 LOC   660
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
 UJP L36
L35 LAB
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM117
 LOC   670
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM118
 IOR
 NOT
 FJP L37
 MST 2,4,4
 LCA 'PCUP     001'
 LOC   680
 PAR A
 CUP P,2,ASSER003
L37 LAB
 MST 2,12,12
 LDA 2,364
 PAR A
 LDA 2,240
 PAR A
 LOD I,2,388
 CHK I,-1,30
 PAR I
 LOC   690
 CUP P,6,FIT$I109
 LOD B,2,364
 NOT
 NOT
 FJP L38
 MST 2,4,4
 LCA 'PCUP     002'
 PAR A
 CUP P,2,ASSER003
L38 LAB
 LDA 1,30932
 LOC   700
 LOD A,3,20
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L39
 LOD I,2,532
 LDC I,2
 LDC I,4
 MPI
 LOC   710
 ADI
 STR I,2,532
 UJP L40
L39 LAB
 LOD I,2,532
 LDC I,4
 ADI
 STR I,2,532
L40 LAB
 LOD I,1,52
 LDC I,14
 NEQ I
 LOC   720
 MST 2,4,4
 LDA 2,240
 PAR A
 CUP B,2,IS$RT068
 AND
 FJP L41
 LDC B,1
 STR B,2,540
 LOD I,2,388
 CHK I,-1,30
 LOC   730
 STR I,2,544
 LOD I,2,532
 STR I,2,548
 UJP L42
L41 LAB
 MST 2,4,4
 LOD I,2,388
 CHK I,-1,30
 PAR I
 CUP B,2,DATUM117
 FJP L43
 LOC   740
 LDA 1,30932
 LOD A,3,20
 IND I,4
 CHK J,0,15
 IXA 1
 IND B,0
 FJP L44
 MST 2,4,4
 LOD A,3,20
 IND I,88
 LOC   750
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC081
 UJP L45
L44 LAB
 MST 2,4,4
 LOD A,3,20
 IND I,88
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L45 LAB
L43 LAB
 LOC   760
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 PAR I
 LOD A,3,12
 IND I,20
 NGI
 LOD I,2,532
 LOC   770
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LDA 1,31060
 LOD A,3,20
 IND I,4
 CHK J,0,15
 IXA 4
 LOC   780
 IND I,0
 CHK I,0,285
 PAR I
 LDA 2,240
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
L42 LAB
L36 LAB
L34 LAB
 LOD I,2,388
 LOD I,3,16
 LOC   790
 NEQ I
 FJP L33
 LOD I,2,388
 INC I,1
 CHK I,-1,30
 STR I,2,388
 UJP L32
L33 LAB
 LOD B,2,540
 FJP L46
 LDA 1,35760
 LOC   800
 LOD I,2,544
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,3,16
 LDA 1,30932
 LOD A,3,16
 IND I,4
 CHK J,0,15
 IXA 1
 LOC   810
 IND B,0
 FJP L47
 MST 2,0,0
 CUP P,0,FINDR083
 LDC I,82
 CHK I,0,285
 STR I,2,12
 UJP L48
L47 LAB
 MST 2,0,0
 CUP P,0,FINDR084
 LOC   820
 LDC I,75
 CHK I,0,285
 STR I,2,12
L48 LAB
 LOD A,3,16
 INC A,88
 LOD I,1,35476
 CHK I,0,31
 STO I
 MST 2,8,8
 LDA 2,128
 LOC   830
 PAR A
 LOD I,1,35476
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,12,12
 LDA 2,184
 PAR A
 LOD I,1,5048
 CHK I,0,31
 LOC   840
 PAR I
 LOD A,3,12
 IND I,20
 NGI
 LOD I,2,548
 SBI
 CHK I,-16777216,16777215
 PAR I
 CUP P,6,REGDI072
 MST 2,12,12
 LOC   850
 LOD I,2,12
 CHK I,0,285
 PAR I
 LDA 2,128
 PAR A
 LDA 2,184
 PAR A
 CUP P,6,EMITX077
L46 LAB
 MST 2,0,0
 CUP P,0,RESTO198
 LOC   860
 LOD I,1,52
 LDC I,14
 NEQ I
 FJP L49
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,30932
 LOD I,1,52
 CHK J,0,15
 IXA 1
 LOC   870
 IND B,0
 FJP L50
 MST 2,4,4
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC081
 UJP L51
L50 LAB
 MST 2,4,4
 LDC I,6
 LOC   880
 CHK I,0,31
 PAR I
 CUP P,2,ALLOC080
L51 LAB
 MST 2,16,16
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 LOD A,2,356
 CHK A,-1,0
 PAR A
 LOC   890
 LOD I,1,52
 CHK I,0,15
 PAR I
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,8,REG$D113
 LOD I,1,39472
 CHK I,-1,30
 STR I,1,35492
 LOC   900
 LDA 1,30932
 LOD I,1,52
 CHK J,0,15
 IXA 1
 IND B,0
 STR B,1,35496
L49 LAB
 LOD I,1,39924
 LDC I,1
 SBI
 CHK I,0,15
 LOC   910
 STR I,1,39924
 UJP L5
L2 DEF         8
L3 DEF         8
L4 LAB
 UJP L6
L5 LAB
 RET P
L1 DEF        24
 LOC     0
ASMNX209 ENT P,2,L1  ASMNXTINST     1 1 1
 LOD B,1,35757
 FJP L2
 LOD I,1,44
 ORD
 LDC I,63
 LEQ I
 FJP L3
 LOD I,1,44
 ORD
 LOC    10
 CHK S,0,63
 LDC S,(4112,0,16640,1040)
 INN
 STR B,1,35757
 UJP L4
L3 LAB
 LDC B,0
 STR B,1,35757
L4 LAB
L2 LAB
 LOD I,1,44
 ORD
 LDC I,63
 LOC    20
 LEQ I
 FJP L5
 LOD I,1,44
 ORD
 CHK S,0,63
 LDC S,(0,24592,0,16384)
 INN
 FJP L6
 LDC I,3
 CHK I,1,8
 LOC    30
 STR I,1,108
 LOD I,1,44
 LDC I,14
 EQU I
 FJP L7
 LDA 1,100
 LCA 'EOF     '
 MOV 8
 UJP L8
L7 LAB
 LOD I,1,44
 LOC    40
 LDC I,46
 EQU I
 FJP L9
 LDA 1,100
 LCA 'SAV     '
 MOV 8
 UJP L10
L9 LAB
 LOD I,1,44
 LDC I,45
 EQU I
 LOC    50
 FJP L11
 LDA 1,100
 LCA 'RST     '
 MOV 8
 UJP L12
L11 LAB
 LOD I,1,44
 LDC I,36
 EQU I
 FJP L13
 LDA 1,100
 LOC    60
 LCA 'NEW     '
 MOV 8
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 LOC    70
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,564
 LOD A,2,564
 LOD A,1,328
 CHK A,-1,0
 LOC    80
 STO A
 LOD A,2,564
 INC A,4
 LDC I,10
 CHK I,0,15
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,72
 STO I
 LOC    90
 UJP L14
L13 LAB
 LDC B,0
 NOT
 FJP L15
 MST 2,4,4
 LCA 'ASMNXTINS001'
 PAR A
 CUP P,2,ASSER003
L15 LAB
L14 LAB
L12 LAB
L10 LAB
L8 LAB
 LDC I,7
 CHK I,0,72
 LOC   100
 STR I,1,44
L6 LAB
L5 LAB
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L16
L20 LAB
 MST 3,0,0
 CUP P,0,CASE1210
 UJP L19
L21 LAB
 MST 3,0,0
 CUP P,0,CASE2211
 LOC   110
 UJP L19
L22 LAB
 MST 3,0,0
 CUP P,0,CASE3212
 UJP L19
L23 LAB
 MST 3,0,0
 CUP P,0,CASE4213
 UJP L19
L24 LAB
 MST 3,0,0
 CUP P,0,CASE5214
 UJP L19
L25 LAB
 LOC   120
 MST 3,0,0
 CUP P,0,CASE6215
 UJP L19
L26 LAB
 MST 3,0,0
 CUP P,0,CASE7216
 UJP L19
L27 LAB
 MST 3,0,0
 CUP P,0,CASE8217
 UJP L19
L28 LAB
 MST 3,0,0
 LOC   130
 CUP P,0,CASE9218
 UJP L19
L29 LAB
 MST 3,0,0
 CUP P,0,CASE1219
 UJP L19
L30 LAB
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   140
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,564
 LOC   150
 LOD A,2,564
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,2,564
 INC A,4
 LOD I,1,52
 CHK I,0,15
 STO I
 LOD I,1,52
 LOC   160
 ORD
 CHK I,0,15
 XJP L31
L35 LAB
 LOD A,2,564
 INC A,60
 LDC I,1
 STO I
 LOD A,2,564
 INC A,68
 LDC I,0
 LOC   170
 CHK I,0,8
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,72
 STO I
 UJP L34
L36 LAB
 LOD A,2,564
 INC A,60
 LDC I,1
 LOC   180
 STO I
 LOD A,2,564
 INC A,68
 LDC I,0
 CHK I,0,8
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,72
 STO I
 LOC   190
 LOD A,2,564
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
 UJP L34
L37 LAB
 LOD A,2,564
 INC A,52
 LOD R,1,76
 STO R
 LOC   200
 UJP L34
L38 LAB
 UJP L34
L39 LAB
 LOD A,2,564
 INC A,44
 LOD S,1,80
 STO S
 UJP L34
L40 LAB
 MST 2,4,4
 LDC I,29
 CHK I,0,68
 LOC   210
 PAR I
 CUP P,2,ERROR005
 UJP L34
L31 DEF         2
L32 DEF        15
L33 LAB
 UJP L40
 UJP L40
 UJP L38
 UJP L36
 UJP L35
 UJP L39
 UJP L40
 LOC   220
 UJP L40
 UJP L35
 UJP L40
 UJP L40
 UJP L37
 UJP L40
 UJP L40
L34 LAB
 UJP L19
L41 LAB
 MST 2,0,0
 CUP P,0,PUSHT128
 LOC   230
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   240
 INC I,1
 IXA 116
 STR A,2,564
 LOD A,2,564
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,2,564
 INC A,4
 LDC I,3
 LOC   250
 CHK I,0,15
 STO I
 LOD A,2,564
 INC A,60
 LDC I,1
 STO I
 LOD A,2,564
 INC A,68
 LDC I,0
 CHK I,0,8
 LOC   260
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,348
 STO I
 LOD I,1,348
 LDC I,4
 MOD
 LDC I,9
 MPI
 LOC   270
 CHK I,0,35
 STR I,2,508
 LDC I,1
 STR I,2,504
 LOD I,1,276
 STR I,2,568
 LOD I,2,504
 LOD I,2,568
 LEQ I
 FJP L43
L42 LAB
 LOC   280
 LOD I,2,508
 LDC I,0
 EQU I
 FJP L44
 MST 2,8,8
 LDA 1,336
 PAR A
 LDA 1,352
 PAR A
 CUP P,4,EMIT$103
L44 LAB
 LOC   290
 MST 2,16,16
 LOD A,1,352
 CHK A,0,0
 INC A,4
 PAR A
 LOD I,2,508
 CHK I,0,35
 PAR I
 LDC I,9
 CHK I,1,36
 LOC   300
 PAR I
 LDA 1,124
 LOD I,2,504
 CHK J,1,150
 DEC I,1
 IXA 1
 IND C,0
 ORD
 LDC I,0
 SBI
 LOC   310
 PAR I
 CUP P,8,PUTFI022
 LOD I,2,508
 LDC I,9
 ADI
 LDC I,36
 MOD
 CHK I,0,35
 STR I,2,508
 LOD I,2,504
 LOC   320
 LOD I,2,568
 NEQ I
 FJP L43
 LOD I,2,504
 INC I,1
 STR I,2,504
 UJP L42
L43 LAB
 LOD I,1,348
 LOD I,1,276
 ADI
 LOC   330
 STR I,1,348
 UJP L19
L45 LAB
 LOD I,1,44
 LDC I,29
 EQU I
 FJP L46
 LDC I,31
 CHK I,0,72
 STR I,1,44
 LOD I,1,72
 LOC   340
 STR I,1,68
 LDC I,1
 STR I,1,72
L46 LAB
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LOC   350
 LDA 1,4576
 MOV 116
 LOD I,1,68
 LDA 1,30740
 LOD I,1,52
 CHK J,0,15
 IXA 4
 IND I,0
 MOD
 LDC I,0
 LOC   360
 NEQ I
 FJP L47
 MST 2,4,4
 LDC I,3
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L47 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 LOC   370
 INC I,1
 IXA 116
 STR A,2,564
 LOD A,2,564
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOD A,2,564
 INC A,4
 LOD I,1,52
 LOC   380
 CHK I,0,15
 STO I
 LOD A,2,564
 INC A,72
 LDC I,1
 CHK I,0,2
 STO I
 LOD A,2,564
 INC A,80
 LDC I,1
 LOC   390
 CHK I,1,2
 STO I
 LOD A,2,564
 INC A,84
 LDC I,1
 STO I
 LOD A,2,564
 INC A,92
 LOD I,1,72
 CHK I,0,8
 LOC   400
 STO I
 LOD A,2,564
 INC A,88
 LOD I,1,68
 STO I
 MST 2,4,4
 LOD A,2,564
 INC A,84
 PAR A
 CUP P,2,TRANS124
 LOC   410
 LOD I,1,52
 LDC I,5
 EQU I
 FJP L48
 LOD A,2,564
 INC A,8
 LDC I,0
 CHK I,0,1
 STO I
L48 LAB
 UJP L19
L49 LAB
 LOC   420
 LOD I,1,44
 LDC I,25
 EQU I
 FJP L50
 LDC I,27
 CHK I,0,72
 STR I,1,44
 LOD I,1,72
 STR I,1,68
 LDC I,1
 LOC   430
 STR I,1,72
L50 LAB
 MST 2,0,0
 CUP P,0,PUSHT128
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LOC   440
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,564
 LOD A,2,564
 LOD A,1,328
 CHK A,-1,0
 STO A
 LOC   450
 LOD A,2,564
 INC A,4
 LDC I,2
 CHK I,0,15
 STO I
 LOD A,2,564
 INC A,60
 LDC I,1
 STO I
 LOD A,2,564
 LOC   460
 INC A,68
 LOD I,1,72
 CHK I,0,8
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,68
 STO I
 MST 2,4,4
 LOD A,2,564
 LOC   470
 INC A,60
 PAR A
 CUP P,2,TRANS124
 UJP L19
L51 LAB
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 STR A,2,564
 LOC   480
 LOD A,2,564
 IND I,4
 LDC I,2
 NEQ I
 FJP L52
 LOD A,2,564
 IND I,4
 LDC I,4
 EQU I
 FJP L53
 LOC   490
 MST 2,4,4
 LDC I,47
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L54
L53 LAB
 LOD A,2,564
 IND I,4
 LDC I,3
 EQU I
 LOC   500
 FJP L55
 MST 2,4,4
 LDC I,37
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
 UJP L56
L55 LAB
 MST 2,4,4
 LDC I,44
 CHK I,0,68
 LOC   510
 PAR I
 CUP P,2,ERROR005
L56 LAB
L54 LAB
L52 LAB
 LOD I,1,72
 LDC I,0
 EQU I
 FJP L57
 LDC I,1
 CHK I,0,2
 STR I,2,460
 UJP L58
L57 LAB
 LOC   520
 LDC I,0
 CHK I,0,2
 STR I,2,460
L58 LAB
L59 LAB
 LOD A,2,564
 IND I,56
 LOD I,2,460
 GRT I
 FJP L60
 MST 2,4,4
 LOD I,1,39472
 LOC   530
 CHK I,-1,30
 PAR I
 CUP P,2,SIMPL111
 UJP L59
L60 LAB
 LOD A,2,564
 IND I,60
 LDC I,0
 EQU I
 FJP L61
 MST 2,4,4
 LOC   540
 LDC I,21
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L61 LAB
 LOD A,2,564
 INC A,64
 LOD A,2,564
 IND I,64
 LOD I,1,72
 ADI
 LOC   550
 STO I
 LOD A,2,564
 IND I,72
 LDC I,0
 EQU I
 FJP L62
 LOD A,2,564
 INC A,72
 LDC I,1
 CHK I,0,2
 LOC   560
 STO I
 LOD A,2,564
 INC A,80
 LDC I,1
 CHK I,1,2
 STO I
 LOD A,2,564
 INC A,84
 LOD A,2,564
 INC A,60
 LOC   570
 MOV 12
 LOD A,2,564
 INC A,60
 LDA 1,4692
 MOV 12
 UJP L63
L62 LAB
 LOD A,2,564
 IND I,72
 LDC I,1
 EQU I
 LOC   580
 LOD A,2,564
 INC A,60
 LDA 1,4692
 EQU M,12
 AND
 FJP L64
 LOD A,2,564
 IND I,76
 LDC I,0
 NEQ I
 LOC   590
 FJP L65
 MST 2,4,4
 LDC I,20
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L65 LAB
 LOD A,2,564
 IND I,80
 LDC I,1
 EQU I
 LOC   600
 FJP L66
 LOD A,2,564
 INC A,80
 LDC I,2
 CHK I,1,2
 STO I
 UJP L67
L66 LAB
 LOD A,2,564
 INC A,56
 LOD A,2,564
 LOC   610
 IND I,56
 INC I,1
 CHK I,0,2
 STO I
L67 LAB
 UJP L68
L64 LAB
 LOD A,2,564
 INC A,56
 LOD A,2,564
 IND I,56
 INC I,1
 LOC   620
 CHK I,0,2
 STO I
L68 LAB
L63 LAB
 LOD A,2,564
 INC A,4
 LOD I,1,52
 CHK I,0,15
 STO I
 UJP L19
L69 LAB
 MST 2,8,8
 LOD I,1,39472
 LOC   630
 LDC I,1
 SBI
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,4,STORE141
 MST 2,4,4
 LOD I,1,39472
 LOC   640
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 LOC   650
 MST 2,0,0
 CUP P,0,POPTO129
 UJP L19
L70 LAB
 LOD I,1,44
 LDC I,51
 EQU I
 FJP L71
 LDC I,55
 CHK I,0,72
 STR I,1,44
 LOC   660
 LOD I,1,72
 STR I,1,68
 LDC I,1
 STR I,1,72
L71 LAB
 LOD I,1,68
 LDA 1,30740
 LOD I,1,52
 CHK J,0,15
 IXA 4
 IND I,0
 LOC   670
 MOD
 LDC I,0
 NEQ I
 FJP L72
 MST 2,4,4
 LDC I,3
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L72 LAB
 LDA 1,35760
 LOC   680
 LDC I,-1
 CHK J,-1,30
 INC I,1
 IXA 116
 LDA 1,4576
 MOV 116
 LDA 1,35760
 LDC I,-1
 CHK J,-1,30
 INC I,1
 LOC   690
 IXA 116
 STR A,2,564
 LOD A,2,564
 LDA 1,35760
 LOD I,1,39472
 CHK J,-1,30
 INC I,1
 IXA 116
 IND A,0
 CHK A,-1,0
 LOC   700
 STO A
 LOD A,2,564
 INC A,4
 LDC I,2
 CHK I,0,15
 STO I
 LOD A,2,564
 INC A,60
 LDC I,1
 STO I
 LOC   710
 LOD A,2,564
 INC A,68
 LOD I,1,72
 CHK I,0,8
 STO I
 LOD A,2,564
 INC A,64
 LOD I,1,68
 STO I
 MST 2,4,4
 LOC   720
 LOD A,2,564
 INC A,60
 PAR A
 CUP P,2,TRANS124
 MST 2,8,8
 LDC I,-1
 CHK I,-1,30
 PAR I
 LOD I,1,39472
 CHK I,-1,30
 LOC   730
 PAR I
 CUP P,4,STORE141
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 MST 2,0,0
 CUP P,0,POPTO129
 MST 2,4,4
 LOC   740
 LDC I,-1
 CHK I,-1,30
 PAR I
 CUP P,2,FREED090
 UJP L19
L16 DEF         0
L17 DEF        72
L18 LAB
 UJP L20
 UJP L20
 UJP L21
 UJP L24
 UJP L25
 LOC   750
 UJP L27
 UJP L20
 UJP L28
 UJP L29
 UJP L20
 UJP L27
 UJP L25
 UJP L22
 UJP L28
 UJP L19
 LOC   760
 UJP L27
 UJP L20
 UJP L20
 UJP L20
 UJP L51
 UJP L25
 UJP L25
 UJP L24
 UJP L26
 UJP L26
 LOC   770
 UJP L49
 UJP L41
 UJP L49
 UJP L30
 UJP L45
 UJP L26
 UJP L45
 UJP L22
 UJP L26
 UJP L22
 LOC   780
 UJP L28
 UJP L19
 UJP L20
 UJP L20
 UJP L21
 UJP L21
 UJP L20
 UJP L28
 UJP L20
 UJP L28
 LOC   790
 UJP L19
 UJP L19
 UJP L21
 UJP L25
 UJP L20
 UJP L20
 UJP L70
 UJP L27
 UJP L69
 UJP L27
 LOC   800
 UJP L70
 UJP L20
 UJP L27
 UJP L27
 UJP L20
 UJP L27
 UJP L25
 UJP L27
 UJP L23
 UJP L23
 LOC   810
 UJP L23
 UJP L23
 UJP L23
 UJP L23
 UJP L23
 UJP L23
 UJP L23
 UJP L23
L19 LAB
 LOD I,1,44
 ORD
 LOC   820
 LDC I,63
 LEQ I
 FJP L74
 LOD I,1,44
 ORD
 CHK S,0,63
 LDC S,(20648,2,256,32768)
 INN
 LOD I,1,39472
 LDC I,1
 LOC   830
 LDC I,1
 SBI
 NEQ I
 AND
 FJP L75
 MST 2,4,4
 LDC I,63
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L75 LAB
L74 LAB
 LOC   840
 RET P
L1 DEF       572
 SST P  READN220       2       0       0       4       0
 SST P  READN221       3       4       0       8       4
 LOC     0
READN221 ENT P,3,L1  READNAM        1 1 1
L2 LAB
 LOD C,1,12
 LDC C,' '
 EQU C
 LOD C,1,12
 LDC C,','
 EQU C
 IOR
 FJP L3
 LDA 1,12
 LOC    10
 CSP  SIO
 CSP  GET
 CSP  EIO
 UJP L2
L3 LAB
 LOD A,3,8
 LCA '        '
 MOV 8
 LDC I,0
 CHK I,0,8
 STR I,3,12
L4 LAB
 LOC    20
 LOD I,3,12
 LDC I,1
 ADI
 CHK I,0,8
 STR I,3,12
 LDA 1,12
 CSP  SIO
 LDA 3,16
 CSP  RDC
 CSP  EIO
 LOC    30
 LOD A,3,8
 LOD I,3,12
 CHK J,1,8
 DEC I,1
 IXA 1
 LOD C,3,16
 CHK I,0,255
 STO C
 LOD I,3,12
 LDC I,8
 LOC    40
 EQU I
 LOD C,1,12
 LDC C,' '
 EQU C
 IOR
 LOD C,1,12
 LDC C,','
 EQU C
 IOR
 FJP L4
L5 LAB
 LOC    50
 LOD C,1,12
 LDC C,' '
 NEQ C
 LOD C,1,12
 LDC C,','
 NEQ C
 AND
 FJP L6
 LDA 1,12
 CSP  SIO
 LOC    60
 CSP  GET
 CSP  EIO
 UJP L5
L6 LAB
 LOD A,3,8
 INC A,8
 LOD I,3,12
 CHK I,1,8
 STO I
 RET P
L1 DEF        20
 SST P  READT222       3       4       0       4       4
 LOC     0
READT222 ENT P,3,L1  READTYP        1 1 1
L2 LAB
 LDA 1,12
 CSP  SIO
 LDA 3,12
 CSP  RDC
 CSP  EIO
 LOD C,3,12
 LDC C,' '
 NEQ C
 LOD C,3,12
 LOC    10
 LDC C,','
 NEQ C
 AND
 FJP L2
 LOD A,3,8
 LOD I,1,4324
 CHK I,0,15
 STO I
L3 LAB
 LOD A,3,8
 IND I,0
 LOC    20
 LOD I,1,4320
 LES I
 LDA 1,30724
 LOD A,3,8
 IND I,0
 CHK J,0,15
 IXA 1
 IND C,0
 LOD C,3,12
 NEQ C
 LOC    30
 AND
 FJP L4
 LOD A,3,8
 LOD A,3,8
 IND I,0
 INC I,1
 CHK I,0,15
 STO I
 UJP L3
L4 LAB
 LDA 1,30724
 LOC    40
 LOD A,3,8
 IND I,0
 CHK J,0,15
 IXA 1
 IND C,0
 LOD C,3,12
 NEQ C
 FJP L5
 MST 2,4,4
 LDC I,33
 LOC    50
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L5 LAB
 RET P
L1 DEF        16
 SST P  READI223       3       4       0       0       4
 LOC     0
READI223 ENT P,3,L1  READINT        1 1 1
L2 LAB
 LOD C,1,12
 LDC C,' '
 EQU C
 LOD C,1,12
 LDC C,','
 EQU C
 IOR
 FJP L3
 LDA 1,12
 LOC    10
 CSP  SIO
 CSP  GET
 CSP  EIO
 UJP L2
L3 LAB
 LDA 1,12
 CSP  SIO
 LOD A,3,8
 CSP  RDI
 CSP  EIO
 RET P
L1 DEF        12
 SST P  READR224       3       4       0       0       4
 LOC     0
READR224 ENT P,3,L1  READREAL       1 1 1
L2 LAB
 LOD C,1,12
 LDC C,' '
 EQU C
 LOD C,1,12
 LDC C,','
 EQU C
 IOR
 FJP L3
 LDA 1,12
 LOC    10
 CSP  SIO
 CSP  GET
 CSP  EIO
 UJP L2
L3 LAB
 LDA 1,12
 CSP  SIO
 LOD A,3,8
 CSP  RDR
 CSP  EIO
 RET P
L1 DEF        12
 SST P  READS225       3       4       0      28       4
 LOC     0
READS225 ENT P,3,L1  READSET        1 1 1
L2 LAB
 LOD C,1,12
 LDC C,'('
 NEQ C
 FJP L3
 LDA 1,12
 CSP  SIO
 CSP  GET
 CSP  EIO
 UJP L2
L3 LAB
 LOC    10
 LDA 1,12
 CSP  SIO
 CSP  GET
 CSP  EIO
 LDC I,1
 STR I,3,20
 LDC I,4
 STR I,3,40
 LOD I,3,20
 LOD I,3,40
 LOC    20
 LEQ I
 FJP L5
L4 LAB
 MST 3,4,4
 LDA 3,24
 LOD I,3,20
 CHK J,1,4
 DEC I,1
 IXA 4
 PAR A
 CUP P,2,READI223
 LOC    30
 LOD I,3,20
 LOD I,3,40
 NEQ I
 FJP L5
 LOD I,3,20
 INC I,1
 STR I,3,20
 UJP L4
L5 LAB
 LOD A,3,8
 LDC S,(0,0,0,0)
 LOC    40
 STO S
 LDC I,0
 STR I,3,12
 LDC I,4
 STR I,3,20
 LDC I,1
 STR I,3,40
 LOD I,3,20
 LOD I,3,40
 GEQ I
 LOC    50
 FJP L7
L6 LAB
 LDC I,1
 STR I,3,16
 LDC I,16
 STR I,3,44
 LOD I,3,16
 LOD I,3,44
 LEQ I
 FJP L9
L8 LAB
 LDA 3,24
 LOC    60
 LOD I,3,20
 CHK J,1,4
 DEC I,1
 IXA 4
 IND I,0
 ODD
 FJP L10
 LOD A,3,8
 LOD A,3,8
 IND S,0
 LOC    70
 LOD I,3,12
 CHK S,0,63
 SGS
 UNI
 STO S
L10 LAB
 LDA 3,24
 LOD I,3,20
 CHK J,1,4
 DEC I,1
 IXA 4
 LOC    80
 LDA 3,24
 LOD I,3,20
 CHK J,1,4
 DEC I,1
 IXA 4
 IND I,0
 LDC I,2
 DVI
 STO I
 LOD I,3,12
 LOC    90
 LDC I,1
 ADI
 STR I,3,12
 LOD I,3,16
 LOD I,3,44
 NEQ I
 FJP L9
 LOD I,3,16
 INC I,1
 STR I,3,16
 LOC   100
 UJP L8
L9 LAB
 LOD I,3,20
 LOD I,3,40
 NEQ I
 FJP L7
 LOD I,3,20
 DEC I,1
 STR I,3,20
 UJP L6
L7 LAB
 RET P
L1 DEF        48
 LOC     0
READN220 ENT P,2,L1  READNXTINST    1 1 1
 LOD C,1,12
 LDC C,' '
 NEQ C
 FJP L2
 MST 3,4,4
 LDA 1,112
 PAR A
 CUP P,2,READN221
L2 LAB
L3 LAB
 LDA 1,12
 LOC    10
 CSP  SIO
 CSP  GET
 CSP  EIO
 LOD C,1,12
 LDC C,' '
 NEQ C
 FJP L3
 LDA 1,12
 CSP  SIO
 LDA 2,8
 LOC    20
 CSP  RDC
 CSP  EIO
 LDA 1,48
 LDC I,1
 CHK J,1,3
 DEC I,1
 IXA 1
 LOD C,2,8
 CHK I,0,255
 STO C
 LOC    30
 LDA 1,12
 CSP  SIO
 LDA 2,8
 CSP  RDC
 CSP  EIO
 LDA 1,48
 LDC I,2
 CHK J,1,3
 DEC I,1
 IXA 1
 LOC    40
 LOD C,2,8
 CHK I,0,255
 STO C
 LDA 1,12
 CSP  SIO
 LDA 2,8
 CSP  RDC
 CSP  EIO
 LDA 1,48
 LDC I,3
 LOC    50
 CHK J,1,3
 DEC I,1
 IXA 1
 LOD C,2,8
 CHK I,0,255
 STO C
 MST 2,4,4
 LDA 1,48
 PAR A
 CUP I,2,MNEM$038
 LOC    60
 CHK I,0,72
 STR I,1,44
 LOD I,1,44
 ORD
 CHK I,0,72
 XJP L4
L8 LAB
 UJP L7
L9 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 LOC    70
 CUP P,2,READT222
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,READN221
 MST 3,4,4
 LOC    80
 LDA 1,88
 PAR A
 CUP P,2,READN221
 MST 3,4,4
 LDA 1,68
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,64
 PAR A
 LOC    90
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,60
 PAR A
 CUP P,2,READI223
 UJP L7
L10 LAB
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 LOC   100
 MST 3,4,4
 LDA 1,68
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,64
 PAR A
 CUP P,2,READI223
 UJP L7
L11 LAB
 UJP L7
L12 LAB
 LOC   110
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 UJP L7
L13 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 CUP P,2,READT222
 MST 3,4,4
 LOC   120
 LDA 1,100
 PAR A
 CUP P,2,READN221
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,68
 PAR A
 LOC   130
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,64
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,60
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LOC   140
 LDA 1,56
 PAR A
 CUP P,2,READI223
 UJP L7
L14 LAB
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,READN221
 UJP L7
L15 LAB
 MST 3,4,4
 LOC   150
 LDA 1,100
 PAR A
 CUP P,2,READN221
 LDA 1,100
 LCA 'PCODE   '
 NEQ M,8
 FJP L16
 MST 3,4,4
 LDA 1,88
 PAR A
 LOC   160
 CUP P,2,READN221
 LDA 1,88
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'A'
 EQU C
 FJP L17
 LOC   170
 LDA 1,100
 LCA 'S1CODE  '
 NEQ M,8
 FJP L18
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
L18 LAB
 UJP L19
L17 LAB
 LDA 1,88
 LOC   180
 LDC I,1
 CHK J,1,8
 DEC I,1
 IXA 1
 IND C,0
 LDC C,'P'
 NEQ C
 FJP L20
 MST 2,4,4
 LDC I,28
 LOC   190
 CHK I,0,68
 PAR I
 CUP P,2,ERROR005
L20 LAB
L19 LAB
L16 LAB
 UJP L7
L21 LAB
 UJP L7
L22 LAB
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 UJP L7
L23 LAB
 LOC   200
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,68
 PAR A
 CUP P,2,READI223
 UJP L7
L24 LAB
 MST 3,4,4
 LOC   210
 LDA 1,100
 PAR A
 CUP P,2,READN221
 UJP L7
L25 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 CUP P,2,READT222
 LOD I,1,52
 LDC I,3
 LOC   220
 EQU I
 FJP L26
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
L26 LAB
 UJP L7
L27 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 LOC   230
 CUP P,2,READT222
 UJP L7
L28 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 CUP P,2,READT222
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 LOC   240
 UJP L7
L29 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 CUP P,2,READT222
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LOC   250
 LDA 1,68
 PAR A
 CUP P,2,READI223
 UJP L7
L30 LAB
 MST 3,4,4
 LDA 1,100
 PAR A
 CUP P,2,READN221
 UJP L7
L31 LAB
 MST 3,4,4
 LOC   260
 LDA 1,52
 PAR A
 CUP P,2,READT222
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 MST 3,4,4
 LDA 1,100
 PAR A
 LOC   270
 CUP P,2,READN221
 UJP L7
L32 LAB
 MST 3,4,4
 LDA 1,52
 PAR A
 CUP P,2,READT222
 LOD I,1,52
 ORD
 CHK I,0,15
 XJP L33
L37 LAB
 LOC   280
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 UJP L36
L38 LAB
 LDA 1,12
 CSP  SIO
 LDA 2,8
 CSP  RDC
 LDA 2,8
 LOC   290
 CSP  RDC
 LDA 2,8
 CSP  RDC
 CSP  EIO
 LOD C,2,8
 ORD
 LDC I,0
 SBI
 STR I,1,72
 UJP L36
L39 LAB
 LOC   300
 MST 3,4,4
 LDA 1,76
 PAR A
 CUP P,2,READR224
 UJP L36
L40 LAB
 UJP L36
L41 LAB
 MST 3,4,4
 LDA 1,72
 PAR A
 CUP P,2,READI223
 LOC   310
 UJP L36
L42 LAB
 MST 3,4,4
 LDA 1,80
 PAR A
 CUP P,2,READS225
 UJP L36
L33 DEF         4
L34 DEF        13
L35 LAB
 UJP L40
 UJP L41
 UJP L38
 UJP L42
 LOC   320
 UJP L36
 UJP L36
 UJP L37
 UJP L36
 UJP L36
 UJP L39
L36 LAB
 UJP L7
L44 LAB
 LDA 1,12
 CSP  SIO
 LDA 2,8
 LOC   330
 CSP  RDC
 LDA 2,8
 CSP  RDC
 LDA 2,8
 CSP  RDC
 CSP  EIO
 LDC I,0
 CHK I,0,150
 STR I,1,276
L45 LAB
 LOD C,2,8
 LOC   340
 LDC C,'''
 NEQ C
 LOD C,1,12
 LDC C,'''
 EQU C
 IOR
 FJP L46
 LOD I,1,276
 LDC I,1
 ADI
 LOC   350
 CHK I,0,150
 STR I,1,276
 LDA 1,124
 LOD I,1,276
 CHK J,1,150
 DEC I,1
 IXA 1
 LOD C,2,8
 CHK I,0,255
 STO C
 LOC   360
 LOD C,2,8
 LDC C,'''
 EQU C
 FJP L47
 LDA 1,12
 CSP  SIO
 LDA 2,8
 CSP  RDC
 CSP  EIO
L47 LAB
 LDA 1,12
 LOC   370
 CSP  SIO
 LDA 2,8
 CSP  RDC
 CSP  EIO
 UJP L45
L46 LAB
 UJP L7
L4 DEF         0
L5 DEF        72
L6 LAB
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 LOC   380
 UJP L22
 UJP L29
 UJP L21
 UJP L30
 UJP L31
 UJP L28
 UJP L12
 UJP L21
 UJP L21
 UJP L9
 LOC   390
 UJP L21
 UJP L24
 UJP L21
 UJP L21
 UJP L28
 UJP L28
 UJP L21
 UJP L21
 UJP L21
 UJP L22
 LOC   400
 UJP L11
 UJP L22
 UJP L44
 UJP L23
 UJP L32
 UJP L28
 UJP L22
 UJP L29
 UJP L21
 UJP L22
 LOC   410
 UJP L21
 UJP L10
 UJP L22
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 UJP L27
 UJP L21
 LOC   420
 UJP L27
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 UJP L21
 UJP L28
 UJP L13
 UJP L27
 LOC   430
 UJP L8
 UJP L29
 UJP L21
 UJP L14
 UJP L15
 UJP L21
 UJP L24
 UJP L21
 UJP L24
 UJP L21
 LOC   440
 UJP L21
 UJP L21
 UJP L21
 UJP L25
 UJP L25
 UJP L25
 UJP L25
 UJP L25
 UJP L25
L7 LAB
 LDA 1,12
 LOC   450
 CSP  SIO
 CSP  RLN
 CSP  EIO
 RET P
L1 DEF        12
 SST P  INITI226       2       0       0      24       0
 SST P  ENTER227       3       8       4       4       8
 LOC     0
ENTER227 ENT P,3,L1  ENTER_OPC      1 1 1
 LDA 3,16
 LOD A,3,8
 MOV 3
 MST 2,4,4
 LDA 3,16
 PAR A
 CUP I,2,OPC$H036
 CHK I,0,196
 STR I,3,20
L2 LAB
 LOC    10
 LDA 1,2744
 LOD I,3,20
 CHK J,0,196
 IXA 8
 LCA '   '
 NEQ M,3
 FJP L3
 LOD I,3,20
 LDC I,1
 ADI
 LOC    20
 LDC I,197
 MOD
 CHK I,0,196
 STR I,3,20
 UJP L2
L3 LAB
 LDA 1,2744
 LOD I,3,20
 CHK J,0,196
 IXA 8
 LDA 3,16
 LOC    30
 MOV 3
 LDA 1,2744
 LOD I,3,20
 CHK J,0,196
 IXA 8
 INC A,4
 LOD I,3,12
 CHK I,0,72
 STO I
 RET P
L1 DEF        24
 SST P  ENTER228       3       8       4      12       8
 LOC     0
ENTER228 ENT P,3,L1  ENTER_CSP      1 1 1
 LDA 3,16
 LOD A,3,8
 MOV 3
 LDA 3,24
 LCA '        '
 MOV 8
 LDA 3,24
 LDC I,1
 CHK J,1,8
 LOC    10
 DEC I,1
 IXA 1
 LDA 3,16
 LDC I,1
 CHK J,1,3
 DEC I,1
 IXA 1
 IND C,0
 CHK I,0,255
 STO C
 LOC    20
 LDA 3,24
 LDC I,2
 CHK J,1,8
 DEC I,1
 IXA 1
 LDA 3,16
 LDC I,2
 CHK J,1,3
 DEC I,1
 IXA 1
 LOC    30
 IND C,0
 CHK I,0,255
 STO C
 LDA 3,24
 LDC I,3
 CHK J,1,8
 DEC I,1
 IXA 1
 LDA 3,16
 LDC I,3
 LOC    40
 CHK J,1,3
 DEC I,1
 IXA 1
 IND C,0
 CHK I,0,255
 STO C
 MST 2,4,4
 LDA 3,24
 PAR A
 CUP I,2,CSP$H035
 LOC    50
 CHK I,0,90
 STR I,3,20
L2 LAB
 LDA 1,1288
 LOD I,3,20
 CHK J,0,90
 IXA 16
 LCA '        '
 NEQ M,8
 FJP L3
 LOD I,3,20
 LOC    60
 LDC I,1
 ADI
 LDC I,91
 MOD
 CHK I,0,90
 STR I,3,20
 UJP L2
L3 LAB
 LDA 1,1288
 LOD I,3,20
 CHK J,0,90
 LOC    70
 IXA 16
 LDA 3,24
 MOV 8
 LDA 1,1288
 LOD I,3,20
 CHK J,0,90
 IXA 16
 INC A,8
 LDC I,3
 CHK I,1,8
 LOC    80
 STO I
 LDA 1,1288
 LOD I,3,20
 CHK J,0,90
 IXA 16
 INC A,12
 LOD I,3,12
 CHK I,0,31
 STO I
 RET P
L1 DEF        32
 SST P  INIT1229       3       0       0       0       0
 LOC     0
INIT1229 ENT P,3,L1  INIT1          1 1 1
 LDC I,0
 STR I,1,4572
 LDC I,0
 STR I,1,4568
 LDC I,0
 CHK I,0,1
 STR I,1,4456
 LDC I,0
 CHK I,0,31
 LOC    10
 STR I,1,4460
 LDC I,0
 CHK I,-32,31
 STR I,1,4464
 LDC I,0
 CHK I,0,5
 STR I,1,4504
 LDC N
 CHK A,-1,0
 STR A,1,4508
 LOC    20
 LDC I,0
 CHK I,0,1
 STR I,1,4468
 LDC I,0
 CHK I,0,1
 STR I,1,4484
 LDC I,0
 CHK I,0,1
 STR I,1,4480
 LDC I,0
 LOC    30
 CHK I,0,1
 STR I,1,4476
 LDC I,0
 CHK I,0,1
 STR I,1,4472
 LDC I,0
 CHK I,0,3
 STR I,1,4488
 LDC I,0
 CHK I,0,1073741823
 LOC    40
 STR I,1,4492
 LDC I,0
 CHK I,0,31
 STR I,1,4496
 LDC I,0
 CHK I,-16777216,16777215
 STR I,1,4500
 LDC I,0
 CHK I,0,1
 STR I,1,4400
 LOC    50
 LDC I,1
 CHK I,0,31
 STR I,1,4404
 LDC I,0
 CHK I,-32,31
 STR I,1,4408
 LDC I,0
 CHK I,0,5
 STR I,1,4448
 LDC N
 LOC    60
 CHK A,-1,0
 STR A,1,4452
 LDC I,1
 CHK I,0,1
 STR I,1,4412
 LDA 1,4416
 LDA 1,4568
 MOV 8
 LDC I,1
 CHK I,0,1
 LOC    70
 STR I,1,4344
 LDC I,1
 CHK I,0,31
 STR I,1,4348
 LDC I,1
 CHK I,-32,31
 STR I,1,4352
 LDC I,0
 CHK I,0,5
 STR I,1,4392
 LOC    80
 LDC N
 CHK A,-1,0
 STR A,1,4396
 LDC I,1
 CHK I,0,1
 STR I,1,4356
 LDA 1,4360
 LDA 1,4568
 MOV 8
 LDC I,0
 LOC    90
 CHK I,0,999999
 STR I,1,4724
 LDC N
 CHK A,-1,0
 STR A,1,4732
 LDC N
 CHK A,-1,0
 STR A,1,4728
 LDC I,0
 CHK I,0,999999
 LOC   100
 STR I,1,4736
 LDC N
 CHK A,-1,0
 STR A,1,4744
 LDC N
 CHK A,-1,0
 STR A,1,4740
 LDC I,1
 STR I,1,4692
 LDC I,0
 LOC   110
 CHK I,0,8
 STR I,1,4700
 LDC I,0
 STR I,1,4696
 LDC I,0
 CHK I,0,3
 STR I,1,4704
 LDC I,1
 CHK I,1,2
 STR I,1,4708
 LOC   120
 LDC I,1
 STR I,1,4712
 LDC I,0
 CHK I,0,8
 STR I,1,4720
 LDC I,0
 STR I,1,4716
 LDC N
 CHK A,-1,0
 STR A,1,4576
 LOC   130
 LDC I,14
 CHK I,0,15
 STR I,1,4580
 LDC I,0
 CHK I,0,1
 STR I,1,4584
 LDA 1,4588
 LDA 1,4736
 MOV 12
 LDA 1,4600
 LOC   140
 LDA 1,4736
 MOV 12
 LDC N
 CHK A,-1,0
 STR A,1,4612
 LDC B,0
 STR B,1,4616
 LDC S,(0,0,0,0)
 STR S,1,4620
 LDC R,0.0
 LOC   150
 STR R,1,4628
 LDC I,0
 CHK I,0,2
 STR I,1,4632
 LDA 1,4636
 LDA 1,4692
 MOV 12
 LDC I,0
 CHK I,0,2
 STR I,1,4648
 LOC   160
 LDA 1,4652
 LDA 1,4704
 MOV 20
 LDA 1,4672
 LDA 1,4704
 MOV 20
 LDA 1,39928
 LDC I,0
 CHK J,0,8
 IXA 48
 LOC   170
 STR A,3,8
 LOD A,3,8
 LDC I,14
 CHK I,0,15
 STO I
 LOD A,3,8
 INC A,4
 LCA 'DUMMY   '
 MOV 8
 LOD A,3,8
 LOC   180
 INC A,12
 LDC I,5
 CHK I,1,8
 STO I
 LOD A,3,8
 INC A,44
 LDC I,-34359738367
 STO I
 LOD A,3,8
 INC A,40
 LOC   190
 LDC I,-34359738367
 STO I
 LOD A,3,8
 INC A,36
 LDC I,-34359738367
 STO I
 LOD A,3,8
 INC A,24
 LDC I,-34359738367
 STO I
 LOC   200
 LOD A,3,8
 INC A,32
 LDC I,34359738367
 STO I
 LOD A,3,8
 INC A,28
 LDC I,0
 STO I
 LOD A,3,8
 INC A,20
 LOC   210
 LDC I,0
 STO I
 LOD A,3,8
 INC A,16
 LDC I,0
 STO I
 MST 2,8,8
 LDA 1,4512
 PAR A
 LDC I,0
 LOC   220
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 MST 2,8,8
 LDA 1,4748
 PAR A
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LOC   230
 MST 2,8,8
 LDA 1,4804
 PAR A
 LDC I,30
 CHK I,0,31
 PAR I
 CUP P,4,REG$O063
 LDC I,0
 LDC I,16
 ADI
 LOC   240
 STR I,1,4860
 LDC I,0
 CHK I,0,15
 STR I,1,4324
 LDC I,15
 CHK I,0,15
 STR I,1,4320
 LDC I,0
 CHK I,0,285
 STR I,1,4332
 LOC   250
 LDC I,285
 CHK I,0,285
 STR I,1,4328
 LDA 1,4864
 LDC I,0
 CHK J,0,34
 IXA 4
 LDC I,1
 STO I
 LDC I,1
 LOC   260
 STR I,2,12
 LDC I,34
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 FJP L3
L2 LAB
 LDA 1,4864
 LOD I,2,12
 CHK J,0,34
 LOC   270
 IXA 4
 LDC I,2
 LDA 1,4864
 LOD I,2,12
 LDC I,1
 SBI
 CHK J,0,34
 IXA 4
 IND I,0
 MPI
 LOC   280
 STO I
 LOD I,2,12
 LOD I,3,8
 NEQ I
 FJP L3
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L2
L3 LAB
 LDC I,8
 LOC   290
 LDC I,1
 SBI
 CHK I,0,31
 STR I,1,35484
 LDC I,29
 LDC I,1
 ADI
 CHK I,0,31
 STR I,1,35480
 LDC B,0
 LOC   300
 STR B,1,35757
 LDA 1,30724
 LDC I,2
 CHK J,0,15
 IXA 1
 LDC C,'A'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,5
 LOC   310
 CHK J,0,15
 IXA 1
 LDC C,'B'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,6
 CHK J,0,15
 IXA 1
 LDC C,'C'
 LOC   320
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,11
 CHK J,0,15
 IXA 1
 LDC C,'D'
 CHK I,0,255
 STO C
 LDA 1,30724
 LOC   330
 LDC I,9
 CHK J,0,15
 IXA 1
 LDC C,'H'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,10
 CHK J,0,15
 IXA 1
 LOC   340
 LDC C,'I'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,15
 CHK J,0,15
 IXA 1
 LDC C,'J'
 CHK I,0,255
 STO C
 LOC   350
 LDA 1,30724
 LDC I,3
 CHK J,0,15
 IXA 1
 LDC C,'M'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,4
 CHK J,0,15
 LOC   360
 IXA 1
 LDC C,'N'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,14
 CHK J,0,15
 IXA 1
 LDC C,'P'
 CHK I,0,255
 LOC   370
 STO C
 LDA 1,30724
 LDC I,8
 CHK J,0,15
 IXA 1
 LDC C,'Q'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,13
 LOC   380
 CHK J,0,15
 IXA 1
 LDC C,'R'
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,7
 CHK J,0,15
 IXA 1
 LDC C,'S'
 LOC   390
 CHK I,0,255
 STO C
 LDA 1,30724
 LDC I,12
 CHK J,0,15
 IXA 1
 LDC C,'X'
 CHK I,0,255
 STO C
 LDA 1,30740
 LOC   400
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,5
 CHK J,0,15
 IXA 4
 LOC   410
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC   420
 LDA 1,30740
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,9
 CHK J,0,15
 LOC   430
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC   440
 STO I
 LDA 1,30740
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,3
 LOC   450
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,4
 LOC   460
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,4
 STO I
 LDA 1,30740
 LOC   470
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,13
 CHK J,0,15
 IXA 4
 LOC   480
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,30740
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC   490
 LDA 1,30740
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,30804
 LDC I,2
 CHK J,0,15
 LOC   500
 IXA 4
 LDC I,3
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,3
 CHK I,1,4
 LOC   510
 STO I
 LDA 1,30804
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,4
 LOC   520
 CHK J,0,15
 IXA 4
 LDC I,3
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,1
 LOC   530
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,1,4
 STO I
 LDA 1,30804
 LOC   540
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,8
 CHK J,0,15
 IXA 4
 LOC   550
 LDC I,1
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,1,4
 STO I
 LOC   560
 LDA 1,30804
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,3
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,10
 CHK J,0,15
 LOC   570
 IXA 4
 LDC I,3
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,1,4
 LOC   580
 STO I
 LDA 1,30804
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,1,4
 STO I
 LDA 1,30804
 LDC I,12
 LOC   590
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,1,4
 STO I
 LDA 1,30868
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,4
 LOC   600
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LDA 1,30868
 LOC   610
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,11
 CHK J,0,15
 IXA 4
 LOC   620
 LDC I,8
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LOC   630
 LDA 1,30868
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,15
 CHK J,0,15
 LOC   640
 IXA 4
 LDC I,0
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 LOC   650
 STO I
 LDA 1,30868
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,14
 LOC   660
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,4
 LOC   670
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,8
 STO I
 LDA 1,30868
 LOC   680
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,8
 CHK I,0,8
 STO I
 LDA 1,30868
 LDC I,12
 CHK J,0,15
 IXA 4
 LOC   690
 LDC I,8
 CHK I,0,8
 STO I
 LOD I,1,4324
 CHK I,0,15
 STR I,2,24
 LOD I,1,4320
 CHK I,0,15
 ORD
 STR I,3,8
 LOC   700
 LOD I,2,24
 ORD
 LOD I,3,8
 LEQ I
 FJP L5
L4 LAB
 LDA 1,30932
 LOD I,2,24
 CHK J,0,15
 IXA 1
 LOD I,2,24
 LOC   710
 ORD
 CHK S,0,63
 LDC S,(0,0,0,6272)
 INN
 STO B
 LDA 1,30948
 LOD I,2,24
 CHK J,0,15
 IXA 1
 LOD I,2,24
 LOC   720
 ORD
 CHK S,0,63
 LDC S,(0,0,0,9244)
 INN
 STO B
 LDA 1,30964
 LOD I,2,24
 CHK J,0,15
 IXA 1
 LOD I,2,24
 LOC   730
 ORD
 CHK S,0,63
 LDC S,(0,0,0,3840)
 INN
 STO B
 LDA 1,30980
 LOD I,2,24
 CHK J,0,15
 IXA 1
 LOD I,2,24
 LOC   740
 ORD
 CHK S,0,63
 LDC S,(0,0,0,12288)
 INN
 STO B
 LOD I,2,24
 ORD
 LOD I,3,8
 NEQ I
 FJP L5
 LOC   750
 LOD I,2,24
 INC I,1
 CHK I,0,15
 STR I,2,24
 UJP L4
L5 LAB
 LDA 1,30996
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,0
 LOC   760
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LOC   770
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,193
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,4
 CHK J,0,15
 IXA 4
 LOC   780
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,193
 CHK I,0,285
 STO I
 LOC   790
 LDA 1,30996
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,11
 CHK J,0,15
 LOC   800
 IXA 4
 LDC I,196
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,193
 CHK I,0,285
 LOC   810
 STO I
 LDA 1,30996
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,194
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,13
 LOC   820
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,195
 LOC   830
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LOC   840
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,30996
 LDC I,12
 CHK J,0,15
 IXA 4
 LOC   850
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LOC   860
 LDA 1,31060
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,5
 CHK J,0,15
 LOC   870
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 LOC   880
 STO I
 LDA 1,31060
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,14
 LOC   890
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,82
 LOC   900
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,31060
 LOC   910
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,70
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,13
 CHK J,0,15
 IXA 4
 LOC   920
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LOC   930
 LDA 1,31060
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,82
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,15
 CHK J,0,15
 LOC   940
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31060
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,82
 CHK I,0,285
 LOC   950
 STO I
 LDA 1,31252
 LDC I,1
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC   960
 LDC I,2
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,83
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,3
 CHK J,1,32
 LOC   970
 DEC I,1
 IXA 4
 LDC I,84
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,4
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC   980
 LDC I,85
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,5
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,86
 CHK I,0,285
 LOC   990
 STO I
 LDA 1,31252
 LDC I,6
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,87
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1000
 LDC I,7
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,88
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,8
 CHK J,1,32
 LOC  1010
 DEC I,1
 IXA 4
 LDC I,89
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,9
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1020
 LDC I,90
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,10
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,91
 CHK I,0,285
 LOC  1030
 STO I
 LDA 1,31252
 LDC I,11
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,92
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1040
 LDC I,12
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,93
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,13
 CHK J,1,32
 LOC  1050
 DEC I,1
 IXA 4
 LDC I,94
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,14
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1060
 LDC I,95
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,15
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,96
 CHK I,0,285
 LOC  1070
 STO I
 LDA 1,31252
 LDC I,16
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,97
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1080
 LDC I,17
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,98
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,18
 CHK J,1,32
 LOC  1090
 DEC I,1
 IXA 4
 LDC I,99
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,19
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1100
 LDC I,100
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,20
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,101
 CHK I,0,285
 LOC  1110
 STO I
 LDA 1,31252
 LDC I,21
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,102
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1120
 LDC I,22
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,103
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,23
 CHK J,1,32
 LOC  1130
 DEC I,1
 IXA 4
 LDC I,104
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,24
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1140
 LDC I,105
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,25
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,106
 CHK I,0,285
 LOC  1150
 STO I
 LDA 1,31252
 LDC I,26
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,107
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1160
 LDC I,27
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,108
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,28
 CHK J,1,32
 LOC  1170
 DEC I,1
 IXA 4
 LDC I,109
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,29
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1180
 LDC I,110
 CHK I,0,285
 STO I
 LDA 1,31252
 LDC I,30
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,111
 CHK I,0,285
 LOC  1190
 STO I
 LDA 1,31252
 LDC I,31
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,112
 CHK I,0,285
 STO I
 LDA 1,31252
 LOC  1200
 LDC I,32
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,113
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,1
 CHK J,1,32
 LOC  1210
 DEC I,1
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,2
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1220
 LDC I,116
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,3
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,117
 CHK I,0,285
 LOC  1230
 STO I
 LDA 1,31380
 LDC I,4
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,118
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1240
 LDC I,5
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,119
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,6
 CHK J,1,32
 LOC  1250
 DEC I,1
 IXA 4
 LDC I,120
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,7
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1260
 LDC I,121
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,8
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,122
 CHK I,0,285
 LOC  1270
 STO I
 LDA 1,31380
 LDC I,9
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,123
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1280
 LDC I,10
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,124
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,11
 CHK J,1,32
 LOC  1290
 DEC I,1
 IXA 4
 LDC I,125
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,12
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1300
 LDC I,126
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,13
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,127
 CHK I,0,285
 LOC  1310
 STO I
 LDA 1,31380
 LDC I,14
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,128
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1320
 LDC I,15
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,129
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,16
 CHK J,1,32
 LOC  1330
 DEC I,1
 IXA 4
 LDC I,130
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,17
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1340
 LDC I,131
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,18
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,132
 CHK I,0,285
 LOC  1350
 STO I
 LDA 1,31380
 LDC I,19
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,133
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1360
 LDC I,20
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,134
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,21
 CHK J,1,32
 LOC  1370
 DEC I,1
 IXA 4
 LDC I,135
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,22
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1380
 LDC I,136
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,23
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,137
 CHK I,0,285
 LOC  1390
 STO I
 LDA 1,31380
 LDC I,24
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,138
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1400
 LDC I,25
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,139
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,26
 CHK J,1,32
 LOC  1410
 DEC I,1
 IXA 4
 LDC I,140
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,27
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1420
 LDC I,141
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,28
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,142
 CHK I,0,285
 LOC  1430
 STO I
 LDA 1,31380
 LDC I,29
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,143
 CHK I,0,285
 STO I
 LDA 1,31380
 LOC  1440
 LDC I,30
 CHK J,1,32
 DEC I,1
 IXA 4
 LDC I,144
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,31
 CHK J,1,32
 LOC  1450
 DEC I,1
 IXA 4
 LDC I,145
 CHK I,0,285
 STO I
 LDA 1,31380
 LDC I,32
 CHK J,1,32
 DEC I,1
 IXA 4
 LOC  1460
 LDC I,146
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LOC  1470
 LDA 1,31124
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,5
 CHK J,0,15
 LOC  1480
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  1490
 STO I
 LDA 1,31124
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,14
 LOC  1500
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,7
 LOC  1510
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,4
 CHK I,0,285
 STO I
 LDA 1,31124
 LOC  1520
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,5
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,13
 CHK J,0,15
 IXA 4
 LOC  1530
 LDC I,6
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,6
 CHK I,0,285
 STO I
 LOC  1540
 LDA 1,31124
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,15
 CHK J,0,15
 LOC  1550
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31124
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,7
 CHK I,0,285
 LOC  1560
 STO I
 LDA 1,31188
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,3
 LOC  1570
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,0
 LOC  1580
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LOC  1590
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,14
 CHK J,0,15
 IXA 4
 LOC  1600
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,152
 CHK I,0,285
 STO I
 LOC  1610
 LDA 1,31188
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,149
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,9
 CHK J,0,15
 LOC  1620
 IXA 4
 LDC I,150
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,151
 CHK I,0,285
 LOC  1630
 STO I
 LDA 1,31188
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,151
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,7
 LOC  1640
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 LOC  1650
 CHK I,0,285
 STO I
 LDA 1,31188
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,152
 CHK I,0,285
 STO I
 LDA 1,31508
 LOC  1660
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,5
 CHK J,0,15
 IXA 4
 LOC  1670
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LOC  1680
 LDA 1,31508
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,46
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,9
 CHK J,0,15
 LOC  1690
 IXA 4
 LDC I,44
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,45
 CHK I,0,285
 LOC  1700
 STO I
 LDA 1,31508
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,3
 LOC  1710
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 LOC  1720
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LOC  1730
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,43
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,13
 CHK J,0,15
 IXA 4
 LOC  1740
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31508
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LOC  1750
 LDA 1,31508
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,2
 CHK J,0,15
 LOC  1760
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  1770
 STO I
 LDA 1,31572
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,4
 LOC  1780
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,0
 LOC  1790
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LOC  1800
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,8
 CHK J,0,15
 IXA 4
 LOC  1810
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LOC  1820
 LDA 1,31572
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,41
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,10
 CHK J,0,15
 LOC  1830
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  1840
 STO I
 LDA 1,31572
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31572
 LDC I,12
 LOC  1850
 CHK J,0,15
 IXA 4
 LDC I,42
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,0
 CHK J,0,31
 IXA 4
 LDC I,201
 LOC  1860
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,1
 CHK J,0,31
 IXA 4
 LDC I,202
 CHK I,0,285
 STO I
 LDA 1,31636
 LOC  1870
 LDC I,2
 CHK J,0,31
 IXA 4
 LDC I,203
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,3
 CHK J,0,31
 IXA 4
 LOC  1880
 LDC I,204
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,4
 CHK J,0,31
 IXA 4
 LDC I,205
 CHK I,0,285
 STO I
 LOC  1890
 LDA 1,31636
 LDC I,5
 CHK J,0,31
 IXA 4
 LDC I,206
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,6
 CHK J,0,31
 LOC  1900
 IXA 4
 LDC I,207
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,7
 CHK J,0,31
 IXA 4
 LDC I,208
 CHK I,0,285
 LOC  1910
 STO I
 LDA 1,31636
 LDC I,8
 CHK J,0,31
 IXA 4
 LDC I,209
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,9
 LOC  1920
 CHK J,0,31
 IXA 4
 LDC I,210
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,10
 CHK J,0,31
 IXA 4
 LDC I,211
 LOC  1930
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,11
 CHK J,0,31
 IXA 4
 LDC I,212
 CHK I,0,285
 STO I
 LDA 1,31636
 LOC  1940
 LDC I,12
 CHK J,0,31
 IXA 4
 LDC I,213
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,13
 CHK J,0,31
 IXA 4
 LOC  1950
 LDC I,214
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,14
 CHK J,0,31
 IXA 4
 LDC I,215
 CHK I,0,285
 STO I
 LOC  1960
 LDA 1,31636
 LDC I,15
 CHK J,0,31
 IXA 4
 LDC I,216
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,16
 CHK J,0,31
 LOC  1970
 IXA 4
 LDC I,217
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,17
 CHK J,0,31
 IXA 4
 LDC I,218
 CHK I,0,285
 LOC  1980
 STO I
 LDA 1,31636
 LDC I,18
 CHK J,0,31
 IXA 4
 LDC I,219
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,19
 LOC  1990
 CHK J,0,31
 IXA 4
 LDC I,220
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,20
 CHK J,0,31
 IXA 4
 LDC I,221
 LOC  2000
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,21
 CHK J,0,31
 IXA 4
 LDC I,222
 CHK I,0,285
 STO I
 LDA 1,31636
 LOC  2010
 LDC I,22
 CHK J,0,31
 IXA 4
 LDC I,223
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,23
 CHK J,0,31
 IXA 4
 LOC  2020
 LDC I,224
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,24
 CHK J,0,31
 IXA 4
 LDC I,225
 CHK I,0,285
 STO I
 LOC  2030
 LDA 1,31636
 LDC I,25
 CHK J,0,31
 IXA 4
 LDC I,226
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,26
 CHK J,0,31
 LOC  2040
 IXA 4
 LDC I,227
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,27
 CHK J,0,31
 IXA 4
 LDC I,228
 CHK I,0,285
 LOC  2050
 STO I
 LDA 1,31636
 LDC I,28
 CHK J,0,31
 IXA 4
 LDC I,229
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,29
 LOC  2060
 CHK J,0,31
 IXA 4
 LDC I,230
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,30
 CHK J,0,31
 IXA 4
 LDC I,231
 LOC  2070
 CHK I,0,285
 STO I
 LDA 1,31636
 LDC I,31
 CHK J,0,31
 IXA 4
 LDC I,232
 CHK I,0,285
 STO I
 LDA 1,31764
 LOC  2080
 LDC I,0
 CHK J,0,31
 IXA 4
 LDC I,233
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,1
 CHK J,0,31
 IXA 4
 LOC  2090
 LDC I,234
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,2
 CHK J,0,31
 IXA 4
 LDC I,235
 CHK I,0,285
 STO I
 LOC  2100
 LDA 1,31764
 LDC I,3
 CHK J,0,31
 IXA 4
 LDC I,236
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,4
 CHK J,0,31
 LOC  2110
 IXA 4
 LDC I,237
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,5
 CHK J,0,31
 IXA 4
 LDC I,238
 CHK I,0,285
 LOC  2120
 STO I
 LDA 1,31764
 LDC I,6
 CHK J,0,31
 IXA 4
 LDC I,239
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,7
 LOC  2130
 CHK J,0,31
 IXA 4
 LDC I,240
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,8
 CHK J,0,31
 IXA 4
 LDC I,241
 LOC  2140
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,9
 CHK J,0,31
 IXA 4
 LDC I,242
 CHK I,0,285
 STO I
 LDA 1,31764
 LOC  2150
 LDC I,10
 CHK J,0,31
 IXA 4
 LDC I,243
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,11
 CHK J,0,31
 IXA 4
 LOC  2160
 LDC I,244
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,12
 CHK J,0,31
 IXA 4
 LDC I,245
 CHK I,0,285
 STO I
 LOC  2170
 LDA 1,31764
 LDC I,13
 CHK J,0,31
 IXA 4
 LDC I,246
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,14
 CHK J,0,31
 LOC  2180
 IXA 4
 LDC I,247
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,15
 CHK J,0,31
 IXA 4
 LDC I,248
 CHK I,0,285
 LOC  2190
 STO I
 LDA 1,31764
 LDC I,16
 CHK J,0,31
 IXA 4
 LDC I,249
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,17
 LOC  2200
 CHK J,0,31
 IXA 4
 LDC I,250
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,18
 CHK J,0,31
 IXA 4
 LDC I,251
 LOC  2210
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,19
 CHK J,0,31
 IXA 4
 LDC I,252
 CHK I,0,285
 STO I
 LDA 1,31764
 LOC  2220
 LDC I,20
 CHK J,0,31
 IXA 4
 LDC I,253
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,21
 CHK J,0,31
 IXA 4
 LOC  2230
 LDC I,254
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,22
 CHK J,0,31
 IXA 4
 LDC I,255
 CHK I,0,285
 STO I
 LOC  2240
 LDA 1,31764
 LDC I,23
 CHK J,0,31
 IXA 4
 LDC I,256
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,24
 CHK J,0,31
 LOC  2250
 IXA 4
 LDC I,257
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,25
 CHK J,0,31
 IXA 4
 LDC I,258
 CHK I,0,285
 LOC  2260
 STO I
 LDA 1,31764
 LDC I,26
 CHK J,0,31
 IXA 4
 LDC I,259
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,27
 LOC  2270
 CHK J,0,31
 IXA 4
 LDC I,260
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,28
 CHK J,0,31
 IXA 4
 LDC I,261
 LOC  2280
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,29
 CHK J,0,31
 IXA 4
 LDC I,262
 CHK I,0,285
 STO I
 LDA 1,31764
 LOC  2290
 LDC I,30
 CHK J,0,31
 IXA 4
 LDC I,263
 CHK I,0,285
 STO I
 LDA 1,31764
 LDC I,31
 CHK J,0,31
 IXA 4
 LOC  2300
 LDC I,264
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,26
 CHK I,0,285
 STO I
 LOC  2310
 LDA 1,31892
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,26
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,5
 CHK J,0,15
 LOC  2320
 IXA 4
 LDC I,24
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2330
 STO I
 LDA 1,31892
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,24
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,14
 LOC  2340
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,27
 LOC  2350
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,24
 CHK I,0,285
 STO I
 LDA 1,31892
 LOC  2360
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,25
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,13
 CHK J,0,15
 IXA 4
 LOC  2370
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,26
 CHK I,0,285
 STO I
 LOC  2380
 LDA 1,31892
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,15
 CHK J,0,15
 LOC  2390
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,31892
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2400
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,34
 CHK I,0,285
 LOC  2410
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,32
 CHK I,0,285
 LOC  2420
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,32
 CHK I,0,285
 LOC  2430
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,35
 CHK I,0,285
 LOC  2440
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,33
 CHK I,0,285
 LOC  2450
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,34
 CHK I,0,285
 LOC  2460
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2470
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,34
 CHK I,0,285
 LOC  2480
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2490
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2500
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,32
 CHK I,0,285
 LOC  2510
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2520
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2530
 STO I
 LDA 1,31956
 LDC I,0
 CHK J,0,1
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2540
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,38
 CHK I,0,285
 LOC  2550
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,36
 CHK I,0,285
 LOC  2560
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,36
 CHK I,0,285
 LOC  2570
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,39
 CHK I,0,285
 LOC  2580
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,37
 CHK I,0,285
 LOC  2590
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,38
 CHK I,0,285
 LOC  2600
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,15
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2610
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,38
 CHK I,0,285
 LOC  2620
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2630
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,14
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2640
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,36
 CHK I,0,285
 LOC  2650
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2660
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2670
 STO I
 LDA 1,31956
 LDC I,1
 CHK J,0,1
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 LOC  2680
 STO I
 RET P
L1 DEF        12
 SST P  INIT2230       3       0       0       0       0
 LOC     0
INIT2230 ENT P,3,L1  INIT2          1 1 1
 LOD I,1,4324
 CHK I,0,15
 STR I,2,20
 LOD I,1,4320
 CHK I,0,15
 ORD
 STR I,3,8
 LOD I,2,20
 ORD
 LOC    10
 LOD I,3,8
 LEQ I
 FJP L3
L2 LAB
 LOD I,1,4324
 CHK I,0,15
 STR I,2,16
 LOD I,1,4320
 CHK I,0,15
 ORD
 STR I,3,12
 LOC    20
 LOD I,2,16
 ORD
 LOD I,3,12
 LEQ I
 FJP L5
L4 LAB
 LDA 1,32084
 LOD I,2,20
 CHK J,0,15
 IXA 64
 LOD I,2,16
 LOC    30
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LDA 1,33108
 LOD I,2,20
 CHK J,0,15
 IXA 64
 LOD I,2,16
 LOC    40
 CHK J,0,15
 IXA 4
 LDC I,0
 CHK I,0,15
 STO I
 LDA 1,34132
 LOD I,2,20
 CHK J,0,15
 IXA 64
 LOD I,2,16
 LOC    50
 CHK J,0,15
 IXA 4
 LDC I,1
 CHK I,0,15
 STO I
 LOD I,2,16
 ORD
 LOD I,3,12
 NEQ I
 FJP L5
 LOC    60
 LOD I,2,16
 INC I,1
 CHK I,0,15
 STR I,2,16
 UJP L4
L5 LAB
 LOD I,2,20
 ORD
 LOD I,3,8
 NEQ I
 FJP L3
 LOC    70
 LOD I,2,20
 INC I,1
 CHK I,0,15
 STR I,2,20
 UJP L2
L3 LAB
 LDA 1,32084
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,2
 LOC    80
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,4
 LOC    90
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,3
 LOC   100
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,5
 CHK J,0,15
 IXA 64
 LDC I,5
 LOC   110
 CHK J,0,15
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,6
 CHK J,0,15
 IXA 64
 LDC I,6
 LOC   120
 CHK J,0,15
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,7
 CHK J,0,15
 IXA 64
 LDC I,7
 LOC   130
 CHK J,0,15
 IXA 4
 LDC I,82
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,12
 LOC   140
 CHK J,0,15
 IXA 4
 LDC I,82
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,13
 LOC   150
 CHK J,0,15
 IXA 4
 LDC I,60
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,12
 LOC   160
 CHK J,0,15
 IXA 4
 LDC I,59
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,13
 LOC   170
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,8
 LOC   180
 CHK J,0,15
 IXA 4
 LDC I,67
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,9
 LOC   190
 CHK J,0,15
 IXA 4
 LDC I,270
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,8
 LOC   200
 CHK J,0,15
 IXA 4
 LDC I,271
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,9
 LOC   210
 CHK J,0,15
 IXA 4
 LDC I,70
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,10
 LOC   220
 CHK J,0,15
 IXA 4
 LDC I,273
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,10
 LOC   230
 CHK J,0,15
 IXA 4
 LDC I,274
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,8
 LOC   240
 CHK J,0,15
 IXA 4
 LDC I,275
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,9
 LOC   250
 CHK J,0,15
 IXA 4
 LDC I,276
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,10
 LOC   260
 CHK J,0,15
 IXA 4
 LDC I,75
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,11
 LOC   270
 CHK J,0,15
 IXA 4
 LDC I,278
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,11
 LOC   280
 CHK J,0,15
 IXA 4
 LDC I,279
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,11
 LOC   290
 CHK J,0,15
 IXA 4
 LDC I,280
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,8
 LOC   300
 CHK J,0,15
 IXA 4
 LDC I,281
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,9
 LOC   310
 CHK J,0,15
 IXA 4
 LDC I,282
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,10
 LOC   320
 CHK J,0,15
 IXA 4
 LDC I,283
 CHK I,0,285
 STO I
 LDA 1,32084
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,11
 LOC   330
 CHK J,0,15
 IXA 4
 LDC I,82
 CHK I,0,285
 STO I
 LDC I,8
 CHK I,0,15
 STR I,2,20
 LDC I,10
 CHK I,0,15
 LOC   340
 ORD
 STR I,3,8
 LOD I,2,20
 ORD
 LOD I,3,8
 LEQ I
 FJP L7
L6 LAB
 LDC I,8
 CHK I,0,15
 STR I,2,16
 LOC   350
 LDC I,10
 CHK I,0,15
 ORD
 STR I,3,12
 LOD I,2,16
 ORD
 LOD I,3,12
 LEQ I
 FJP L9
L8 LAB
 LDA 1,33108
 LOC   360
 LOD I,2,20
 CHK J,0,15
 IXA 64
 LOD I,2,16
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 STO I
 LOD I,2,16
 LOC   370
 ORD
 LOD I,3,12
 NEQ I
 FJP L9
 LOD I,2,16
 INC I,1
 CHK I,0,15
 STR I,2,16
 UJP L8
L9 LAB
 LOD I,2,20
 LOC   380
 ORD
 LOD I,3,8
 NEQ I
 FJP L7
 LOD I,2,20
 INC I,1
 CHK I,0,15
 STR I,2,20
 UJP L6
L7 LAB
 LDC I,8
 LOC   390
 CHK I,0,15
 STR I,2,24
 LDC I,11
 CHK I,0,15
 ORD
 STR I,3,8
 LOD I,2,24
 ORD
 LOD I,3,8
 LEQ I
 LOC   400
 FJP L11
L10 LAB
 LDA 1,33108
 LOD I,2,24
 CHK J,0,15
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   410
 STO I
 LDA 1,33108
 LDC I,11
 CHK J,0,15
 IXA 64
 LOD I,2,24
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   420
 STO I
 LOD I,2,24
 ORD
 LOD I,3,8
 NEQ I
 FJP L11
 LOD I,2,24
 INC I,1
 CHK I,0,15
 STR I,2,24
 LOC   430
 UJP L10
L11 LAB
 LDA 1,33108
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   440
 STO I
 LDA 1,33108
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   450
 STO I
 LDA 1,33108
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   460
 STO I
 LDA 1,33108
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,13
 CHK I,0,15
 LOC   470
 STO I
 LDA 1,34132
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,3
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,0,15
 LOC   480
 STO I
 LDA 1,34132
 LDC I,3
 CHK J,0,15
 IXA 64
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,0,15
 LOC   490
 STO I
 LDA 1,34132
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,4
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,0,15
 LOC   500
 STO I
 LDA 1,34132
 LDC I,4
 CHK J,0,15
 IXA 64
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,0,15
 LOC   510
 STO I
 LDA 1,34132
 LDC I,2
 CHK J,0,15
 IXA 64
 LDC I,2
 CHK J,0,15
 IXA 4
 LDC I,2
 CHK I,0,15
 LOC   520
 STO I
 LDA 1,34132
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   530
 STO I
 LDA 1,34132
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,12
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   540
 STO I
 LDA 1,34132
 LDC I,12
 CHK J,0,15
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,12
 CHK I,0,15
 LOC   550
 STO I
 LDA 1,34132
 LDC I,13
 CHK J,0,15
 IXA 64
 LDC I,13
 CHK J,0,15
 IXA 4
 LDC I,13
 CHK I,0,15
 LOC   560
 STO I
 LDA 1,34132
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,8
 CHK I,0,15
 LOC   570
 STO I
 LDA 1,34132
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,9
 CHK I,0,15
 LOC   580
 STO I
 LDA 1,34132
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,9
 CHK I,0,15
 LOC   590
 STO I
 LDA 1,34132
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,9
 CHK I,0,15
 LOC   600
 STO I
 LDA 1,34132
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 LOC   610
 STO I
 LDA 1,34132
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 LOC   620
 STO I
 LDA 1,34132
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 LOC   630
 STO I
 LDA 1,34132
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 LOC   640
 STO I
 LDA 1,34132
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,10
 CHK I,0,15
 LOC   650
 STO I
 LDA 1,34132
 LDC I,8
 CHK J,0,15
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   660
 STO I
 LDA 1,34132
 LDC I,9
 CHK J,0,15
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   670
 STO I
 LDA 1,34132
 LDC I,10
 CHK J,0,15
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   680
 STO I
 LDA 1,34132
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,8
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   690
 STO I
 LDA 1,34132
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,9
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   700
 STO I
 LDA 1,34132
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,10
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   710
 STO I
 LDA 1,34132
 LDC I,11
 CHK J,0,15
 IXA 64
 LDC I,11
 CHK J,0,15
 IXA 4
 LDC I,11
 CHK I,0,15
 LOC   720
 STO I
 LDA 1,34132
 LDC I,5
 CHK J,0,15
 IXA 64
 LDC I,5
 CHK J,0,15
 IXA 4
 LDC I,5
 CHK I,0,15
 LOC   730
 STO I
 LDA 1,34132
 LDC I,6
 CHK J,0,15
 IXA 64
 LDC I,6
 CHK J,0,15
 IXA 4
 LDC I,6
 CHK I,0,15
 LOC   740
 STO I
 LDA 1,34132
 LDC I,7
 CHK J,0,15
 IXA 64
 LDC I,7
 CHK J,0,15
 IXA 4
 LDC I,7
 CHK I,0,15
 LOC   750
 STO I
 LDA 1,35156
 LDC I,3
 CHK J,3,4
 DEC I,3
 IXA 16
 LDC I,63
 CHK J,63,66
 DEC I,63
 IXA 4
 LOC   760
 LDC I,47
 CHK I,0,285
 STO I
 LDA 1,35156
 LDC I,4
 CHK J,3,4
 DEC I,3
 IXA 16
 LDC I,63
 CHK J,63,66
 LOC   770
 DEC I,63
 IXA 4
 LDC I,48
 CHK I,0,285
 STO I
 LDA 1,35156
 LDC I,3
 CHK J,3,4
 DEC I,3
 IXA 16
 LOC   780
 LDC I,64
 CHK J,63,66
 DEC I,63
 IXA 4
 LDC I,49
 CHK I,0,285
 STO I
 LDA 1,35156
 LDC I,4
 CHK J,3,4
 LOC   790
 DEC I,3
 IXA 16
 LDC I,64
 CHK J,63,66
 DEC I,63
 IXA 4
 LDC I,51
 CHK I,0,285
 STO I
 LDA 1,35156
 LOC   800
 LDC I,3
 CHK J,3,4
 DEC I,3
 IXA 16
 LDC I,65
 CHK J,63,66
 DEC I,63
 IXA 4
 LDC I,53
 CHK I,0,285
 LOC   810
 STO I
 LDA 1,35156
 LDC I,4
 CHK J,3,4
 DEC I,3
 IXA 16
 LDC I,65
 CHK J,63,66
 DEC I,63
 IXA 4
 LOC   820
 LDC I,54
 CHK I,0,285
 STO I
 LDA 1,35156
 LDC I,3
 CHK J,3,4
 DEC I,3
 IXA 16
 LDC I,66
 CHK J,63,66
 LOC   830
 DEC I,63
 IXA 4
 LDC I,55
 CHK I,0,285
 STO I
 LDA 1,35156
 LDC I,4
 CHK J,3,4
 DEC I,3
 IXA 16
 LOC   840
 LDC I,66
 CHK J,63,66
 DEC I,63
 IXA 4
 LDC I,57
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,1
 CHK J,1,4
 LOC   850
 DEC I,1
 IXA 24
 LDC I,67
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,169
 CHK I,0,285
 STO I
 LDA 1,35188
 LOC   860
 LDC I,1
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,68
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,170
 CHK I,0,285
 LOC   870
 STO I
 LDA 1,35188
 LDC I,1
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,69
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC   880
 LDC I,171
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,1
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,70
 CHK J,67,72
 LOC   890
 DEC I,67
 IXA 4
 LDC I,172
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,1
 CHK J,1,4
 DEC I,1
 IXA 24
 LOC   900
 LDC I,71
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,173
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,1
 CHK J,1,4
 LOC   910
 DEC I,1
 IXA 24
 LDC I,72
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,174
 CHK I,0,285
 STO I
 LDA 1,35188
 LOC   920
 LDC I,2
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,67
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,175
 CHK I,0,285
 LOC   930
 STO I
 LDA 1,35188
 LDC I,2
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,68
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC   940
 LDC I,176
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,2
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,69
 CHK J,67,72
 LOC   950
 DEC I,67
 IXA 4
 LDC I,177
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,2
 CHK J,1,4
 DEC I,1
 IXA 24
 LOC   960
 LDC I,70
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,178
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,2
 CHK J,1,4
 LOC   970
 DEC I,1
 IXA 24
 LDC I,71
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,179
 CHK I,0,285
 STO I
 LDA 1,35188
 LOC   980
 LDC I,2
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,72
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,180
 CHK I,0,285
 LOC   990
 STO I
 LDA 1,35188
 LDC I,3
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,67
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC  1000
 LDC I,181
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,3
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,68
 CHK J,67,72
 LOC  1010
 DEC I,67
 IXA 4
 LDC I,182
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,3
 CHK J,1,4
 DEC I,1
 IXA 24
 LOC  1020
 LDC I,69
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,183
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,3
 CHK J,1,4
 LOC  1030
 DEC I,1
 IXA 24
 LDC I,70
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,184
 CHK I,0,285
 STO I
 LDA 1,35188
 LOC  1040
 LDC I,3
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,71
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,185
 CHK I,0,285
 LOC  1050
 STO I
 LDA 1,35188
 LDC I,3
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,72
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC  1060
 LDC I,186
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,4
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,67
 CHK J,67,72
 LOC  1070
 DEC I,67
 IXA 4
 LDC I,187
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,4
 CHK J,1,4
 DEC I,1
 IXA 24
 LOC  1080
 LDC I,68
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,188
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,4
 CHK J,1,4
 LOC  1090
 DEC I,1
 IXA 24
 LDC I,69
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,189
 CHK I,0,285
 STO I
 LDA 1,35188
 LOC  1100
 LDC I,4
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,70
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,190
 CHK I,0,285
 LOC  1110
 STO I
 LDA 1,35188
 LDC I,4
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,71
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC  1120
 LDC I,191
 CHK I,0,285
 STO I
 LDA 1,35188
 LDC I,4
 CHK J,1,4
 DEC I,1
 IXA 24
 LDC I,72
 CHK J,67,72
 LOC  1130
 DEC I,67
 IXA 4
 LDC I,192
 CHK I,0,285
 STO I
 LDA 1,35284
 LDC I,67
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC  1140
 LDC I,17
 CHK I,0,285
 STO I
 LDA 1,35284
 LDC I,68
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,18
 CHK I,0,285
 LOC  1150
 STO I
 LDA 1,35284
 LDC I,69
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,19
 CHK I,0,285
 STO I
 LDA 1,35284
 LOC  1160
 LDC I,70
 CHK J,67,72
 DEC I,67
 IXA 4
 LDC I,20
 CHK I,0,285
 STO I
 LDA 1,35284
 LDC I,71
 CHK J,67,72
 LOC  1170
 DEC I,67
 IXA 4
 LDC I,21
 CHK I,0,285
 STO I
 LDA 1,35284
 LDC I,72
 CHK J,67,72
 DEC I,67
 IXA 4
 LOC  1180
 LDC I,22
 CHK I,0,285
 STO I
 LDC I,1
 STR I,2,12
 LDC I,8
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 LOC  1190
 FJP L13
L12 LAB
 LDA 1,35500
 LOD I,2,12
 CHK J,1,8
 DEC I,1
 IXA 4
 LDC I,29
 LDC I,1
 ADI
 LOD I,2,12
 LOC  1200
 SBI
 CHK I,0,31
 STO I
 LOD I,2,12
 LOD I,3,8
 NEQ I
 FJP L13
 LOD I,2,12
 INC I,1
 STR I,2,12
 LOC  1210
 UJP L12
L13 LAB
 LDC I,0
 STR I,2,12
 LDC I,9
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 FJP L15
L14 LAB
 LDA 1,35532
 LOC  1220
 LOD I,2,12
 CHK J,0,9
 IXA 4
 LOD I,2,12
 LDC I,8
 ADI
 CHK I,0,31
 STO I
 LOD I,2,12
 LOD I,3,8
 LOC  1230
 NEQ I
 FJP L15
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L14
L15 LAB
 LDC I,0
 STR I,2,12
 LDC I,31
 STR I,3,8
 LOC  1240
 LOD I,2,12
 LOD I,3,8
 LEQ I
 FJP L17
L16 LAB
 LDA 1,35572
 LOD I,2,12
 CHK J,0,31
 IXA 4
 LDC I,1000000
 STO I
 LOC  1250
 LOD I,2,12
 LOD I,3,8
 NEQ I
 FJP L17
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L16
L17 LAB
 LDC I,8
 STR I,2,12
 LOC  1260
 LDC I,9
 LDC I,8
 ADI
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 FJP L19
L18 LAB
 LDA 1,35572
 LOD I,2,12
 LOC  1270
 CHK J,0,31
 IXA 4
 LOD I,2,12
 LDC I,8
 SBI
 STO I
 LOD I,2,12
 LOD I,3,8
 NEQ I
 FJP L19
 LOC  1280
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L18
L19 LAB
 LDA 1,35700
 LDC I,0
 CHK J,0,2
 IXA 4
 LCA 'IS  '
 MOV 4
 LOC  1290
 LDA 1,35700
 LDC I,1
 CHK J,0,2
 IXA 4
 LCA 'DS  '
 MOV 4
 LDA 1,35700
 LDC I,2
 CHK J,0,2
 IXA 4
 LOC  1300
 LCA 'CM  '
 MOV 4
 LDA 1,35712
 LDC I,0
 CHK J,0,3
 IXA 4
 LCA 'ST  '
 MOV 4
 LDA 1,35712
 LDC I,1
 LOC  1310
 CHK J,0,3
 IXA 4
 LCA 'IN  '
 MOV 4
 LDA 1,35712
 LDC I,2
 CHK J,0,3
 IXA 4
 LCA 'DN  '
 MOV 4
 LOC  1320
 LDA 1,35712
 LDC I,3
 CHK J,0,3
 IXA 4
 LCA 'AN  '
 MOV 4
 LDA 1,35728
 LDC I,0
 CHK J,0,3
 IXA 4
 LOC  1330
 LCA 'IR  '
 MOV 4
 LDA 1,35728
 LDC I,1
 CHK J,0,3
 IXA 4
 LCA 'DR  '
 MOV 4
 LDA 1,35728
 LDC I,2
 LOC  1340
 CHK J,0,3
 IXA 4
 LCA 'AR  '
 MOV 4
 LDA 1,35728
 LDC I,3
 CHK J,0,3
 IXA 4
 LCA 'XR  '
 MOV 4
 LOC  1350
 LDA 1,35747
 LDC I,0
 CHK J,0,1
 IXA 2
 LCA '+ '
 MOV 2
 LDA 1,35747
 LDC I,1
 CHK J,0,1
 IXA 2
 LOC  1360
 LCA '- '
 MOV 2
 LDA 1,35744
 LDC I,0
 CHK J,0,2
 IXA 1
 LDC C,'D'
 CHK I,0,255
 STO C
 LDA 1,35744
 LOC  1370
 LDC I,1
 CHK J,0,2
 IXA 1
 LDC C,'R'
 CHK I,0,255
 STO C
 LDA 1,35744
 LDC I,2
 CHK J,0,2
 IXA 1
 LOC  1380
 LDC C,'S'
 CHK I,0,255
 STO C
 LDC I,0
 STR I,2,12
 LDC I,196
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 LOC  1390
 FJP L21
L20 LAB
 LDA 1,2744
 LOD I,2,12
 CHK J,0,196
 IXA 8
 LCA '   '
 MOV 3
 LOD I,2,12
 LOD I,3,8
 NEQ I
 LOC  1400
 FJP L21
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L20
L21 LAB
 MST 3,8,8
 LCA 'ADR'
 PAR A
 LDC I,63
 CHK I,0,72
 LOC  1410
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SBR'
 PAR A
 LDC I,64
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1420
 LCA 'MPR'
 PAR A
 LDC I,65
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'DVR'
 PAR A
 LDC I,66
 LOC  1430
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'EQU'
 PAR A
 LDC I,67
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1440
 MST 3,8,8
 LCA 'NEQ'
 PAR A
 LDC I,68
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'GEQ'
 PAR A
 LOC  1450
 LDC I,69
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'GRT'
 PAR A
 LDC I,70
 CHK I,0,72
 PAR I
 LOC  1460
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LEQ'
 PAR A
 LDC I,71
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LES'
 LOC  1470
 PAR A
 LDC I,72
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'ABI'
 PAR A
 LDC I,0
 CHK I,0,72
 LOC  1480
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'ABR'
 PAR A
 LDC I,1
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1490
 LCA 'ADI'
 PAR A
 LDC I,2
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'AND'
 PAR A
 LDC I,3
 LOC  1500
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'BGN'
 PAR A
 LDC I,4
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1510
 MST 3,8,8
 LCA 'CHK'
 PAR A
 LDC I,5
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'CHR'
 PAR A
 LOC  1520
 LDC I,6
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'CSP'
 PAR A
 LDC I,7
 CHK I,0,72
 PAR I
 LOC  1530
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'CUP'
 PAR A
 LDC I,8
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'DEC'
 LOC  1540
 PAR A
 LDC I,9
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'DEF'
 PAR A
 LDC I,10
 CHK I,0,72
 LOC  1550
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'DIF'
 PAR A
 LDC I,11
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1560
 LCA 'DVI'
 PAR A
 LDC I,12
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'ENT'
 PAR A
 LDC I,13
 LOC  1570
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'EOF'
 PAR A
 LDC I,14
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1580
 MST 3,8,8
 LCA 'FJP'
 PAR A
 LDC I,15
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'FLO'
 PAR A
 LOC  1590
 LDC I,16
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'FLT'
 PAR A
 LDC I,17
 CHK I,0,72
 PAR I
 LOC  1600
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'INC'
 PAR A
 LDC I,18
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'IND'
 LOC  1610
 PAR A
 LDC I,19
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'INN'
 PAR A
 LDC I,20
 CHK I,0,72
 LOC  1620
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'INT'
 PAR A
 LDC I,21
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1630
 LCA 'IOR'
 PAR A
 LDC I,22
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'IXA'
 PAR A
 LDC I,23
 LOC  1640
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LAB'
 PAR A
 LDC I,24
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1650
 MST 3,8,8
 LCA 'LAO'
 PAR A
 LDC I,25
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LAB'
 PAR A
 LOC  1660
 LDC I,24
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LCA'
 PAR A
 LDC I,26
 CHK I,0,72
 PAR I
 LOC  1670
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LDA'
 PAR A
 LDC I,27
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LDC'
 LOC  1680
 PAR A
 LDC I,28
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LDO'
 PAR A
 LDC I,29
 CHK I,0,72
 LOC  1690
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'LOC'
 PAR A
 LDC I,30
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1700
 LCA 'LOD'
 PAR A
 LDC I,31
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'MOD'
 PAR A
 LDC I,32
 LOC  1710
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'MOV'
 PAR A
 LDC I,33
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1720
 MST 3,8,8
 LCA 'MPI'
 PAR A
 LDC I,34
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'MST'
 PAR A
 LOC  1730
 LDC I,35
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'NEW'
 PAR A
 LDC I,36
 CHK I,0,72
 PAR I
 LOC  1740
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'NGI'
 PAR A
 LDC I,37
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'NGR'
 LOC  1750
 PAR A
 LDC I,38
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'NOT'
 PAR A
 LDC I,39
 CHK I,0,72
 LOC  1760
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'ODD'
 PAR A
 LDC I,40
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1770
 LCA 'ORD'
 PAR A
 LDC I,41
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'PAR'
 PAR A
 LDC I,42
 LOC  1780
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'PRE'
 PAR A
 LDC I,43
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1790
 MST 3,8,8
 LCA 'RET'
 PAR A
 LDC I,44
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'RST'
 PAR A
 LOC  1800
 LDC I,45
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SAV'
 PAR A
 LDC I,46
 CHK I,0,72
 PAR I
 LOC  1810
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SBI'
 PAR A
 LDC I,47
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SGS'
 LOC  1820
 PAR A
 LDC I,48
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SQI'
 PAR A
 LDC I,49
 CHK I,0,72
 LOC  1830
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SQR'
 PAR A
 LDC I,50
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1840
 LCA 'SRO'
 PAR A
 LDC I,51
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SST'
 PAR A
 LDC I,52
 LOC  1850
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'STO'
 PAR A
 LDC I,53
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 LOC  1860
 MST 3,8,8
 LCA 'STP'
 PAR A
 LDC I,54
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'STR'
 PAR A
 LOC  1870
 LDC I,55
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'SUC'
 PAR A
 LDC I,56
 CHK I,0,72
 PAR I
 LOC  1880
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'TOF'
 PAR A
 LDC I,57
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'TON'
 LOC  1890
 PAR A
 LDC I,58
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'TRC'
 PAR A
 LDC I,59
 CHK I,0,72
 LOC  1900
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'UJP'
 PAR A
 LDC I,60
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LOC  1910
 LCA 'UNI'
 PAR A
 LDC I,61
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 MST 3,8,8
 LCA 'XJP'
 PAR A
 LDC I,62
 LOC  1920
 CHK I,0,72
 PAR I
 CUP P,4,ENTER227
 RET P
L1 DEF        16
 SST P  INIT3231       3       0       0       0       0
 LOC     0
INIT3231 ENT P,3,L1  INIT3          1 1 1
 LDC I,0
 STR I,2,12
 LDC I,90
 STR I,3,8
 LOD I,2,12
 LOD I,3,8
 LEQ I
 FJP L3
L2 LAB
 LDA 1,1288
 LOC    10
 LOD I,2,12
 CHK J,0,90
 IXA 16
 LCA '        '
 MOV 8
 LDA 1,1288
 LOD I,2,12
 CHK J,0,90
 IXA 16
 INC A,8
 LOC    20
 LDC I,1
 CHK I,1,8
 STO I
 LOD I,2,12
 LOD I,3,8
 NEQ I
 FJP L3
 LOD I,2,12
 INC I,1
 STR I,2,12
 LOC    30
 UJP L2
L3 LAB
 MST 3,8,8
 LCA 'ATN'
 PAR A
 LDC I,0
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'EXP'
 LOC    40
 PAR A
 LDC I,6
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'SIN'
 PAR A
 LDC I,21
 CHK I,0,31
 LOC    50
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'COS'
 PAR A
 LDC I,2
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LOC    60
 LCA 'LOG'
 PAR A
 LDC I,8
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'SQT'
 PAR A
 LDC I,23
 LOC    70
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'CLK'
 PAR A
 LDC I,1
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 LOC    80
 MST 3,8,8
 LCA 'XIT'
 PAR A
 LDC I,31
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'TRP'
 PAR A
 LOC    90
 LDC I,24
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'GET'
 PAR A
 LDC I,7
 CHK I,0,31
 PAR I
 LOC   100
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'PUT'
 PAR A
 LDC I,10
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RLN'
 LOC   110
 PAR A
 LDC I,18
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'WLN'
 PAR A
 LDC I,25
 CHK I,0,31
 LOC   120
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RES'
 PAR A
 LDC I,16
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LOC   130
 LCA 'REW'
 PAR A
 LDC I,17
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RDC'
 PAR A
 LDC I,12
 LOC   140
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RDI'
 PAR A
 LDC I,13
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 LOC   150
 MST 3,8,8
 LCA 'RDR'
 PAR A
 LDC I,14
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RDS'
 PAR A
 LOC   160
 LDC I,15
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'WRC'
 PAR A
 LDC I,27
 CHK I,0,31
 PAR I
 LOC   170
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RDB'
 PAR A
 LDC I,11
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'WRB'
 LOC   180
 PAR A
 LDC I,26
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'WRI'
 PAR A
 LDC I,28
 CHK I,0,31
 LOC   190
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'WRR'
 PAR A
 LDC I,29
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LOC   200
 LCA 'WRS'
 PAR A
 LDC I,30
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'ELN'
 PAR A
 LDC I,4
 LOC   210
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'EOF'
 PAR A
 LDC I,5
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 LOC   220
 MST 3,8,8
 LCA 'SIO'
 PAR A
 LDC I,22
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'EIO'
 PAR A
 LOC   230
 LDC I,3
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'NEW'
 PAR A
 LDC I,9
 CHK I,0,31
 PAR I
 LOC   240
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'SAV'
 PAR A
 LDC I,20
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 MST 3,8,8
 LCA 'RST'
 LOC   250
 PAR A
 LDC I,19
 CHK I,0,31
 PAR I
 CUP P,4,ENTER228
 LOD I,1,4332
 CHK I,0,285
 STR I,2,28
 LOD I,1,4328
 CHK I,0,285
 LOC   260
 ORD
 STR I,3,8
 LOD I,2,28
 ORD
 LOD I,3,8
 LEQ I
 FJP L5
L4 LAB
 LDA 1,22584
 LOD I,2,28
 CHK J,0,285
 LOC   270
 IXA 4
 LDC I,0
 CHK I,0,285
 STO I
 LOD I,2,28
 ORD
 LOD I,3,8
 NEQ I
 FJP L5
 LOD I,2,28
 LOC   280
 INC I,1
 CHK I,0,285
 STR I,2,28
 UJP L4
L5 LAB
 LDA 1,22584
 LDC I,8
 CHK J,0,285
 IXA 4
 LDC I,8
 CHK I,0,285
 LOC   290
 STO I
 LDA 1,22584
 LDC I,9
 CHK J,0,285
 IXA 4
 LDC I,9
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,13
 LOC   300
 CHK J,0,285
 IXA 4
 LDC I,13
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,14
 CHK J,0,285
 IXA 4
 LDC I,14
 LOC   310
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,15
 CHK J,0,285
 IXA 4
 LDC I,16
 CHK I,0,285
 STO I
 LDA 1,22584
 LOC   320
 LDC I,16
 CHK J,0,285
 IXA 4
 LDC I,15
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,47
 CHK J,0,285
 IXA 4
 LOC   330
 LDC I,47
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,48
 CHK J,0,285
 IXA 4
 LDC I,48
 CHK I,0,285
 STO I
 LOC   340
 LDA 1,22584
 LDC I,49
 CHK J,0,285
 IXA 4
 LDC I,50
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,50
 CHK J,0,285
 LOC   350
 IXA 4
 LDC I,49
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,51
 CHK J,0,285
 IXA 4
 LDC I,52
 CHK I,0,285
 LOC   360
 STO I
 LDA 1,22584
 LDC I,52
 CHK J,0,285
 IXA 4
 LDC I,51
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,53
 LOC   370
 CHK J,0,285
 IXA 4
 LDC I,53
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,54
 CHK J,0,285
 IXA 4
 LDC I,54
 LOC   380
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,55
 CHK J,0,285
 IXA 4
 LDC I,56
 CHK I,0,285
 STO I
 LDA 1,22584
 LOC   390
 LDC I,56
 CHK J,0,285
 IXA 4
 LDC I,55
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,57
 CHK J,0,285
 IXA 4
 LOC   400
 LDC I,58
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,58
 CHK J,0,285
 IXA 4
 LDC I,57
 CHK I,0,285
 STO I
 LOC   410
 LDA 1,22584
 LDC I,147
 CHK J,0,285
 IXA 4
 LDC I,147
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,148
 CHK J,0,285
 LOC   420
 IXA 4
 LDC I,148
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,153
 CHK J,0,285
 IXA 4
 LDC I,153
 CHK I,0,285
 LOC   430
 STO I
 LDA 1,22584
 LDC I,154
 CHK J,0,285
 IXA 4
 LDC I,154
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,155
 LOC   440
 CHK J,0,285
 IXA 4
 LDC I,155
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,156
 CHK J,0,285
 IXA 4
 LDC I,157
 LOC   450
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,157
 CHK J,0,285
 IXA 4
 LDC I,156
 CHK I,0,285
 STO I
 LDA 1,22584
 LOC   460
 LDC I,158
 CHK J,0,285
 IXA 4
 LDC I,159
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,159
 CHK J,0,285
 IXA 4
 LOC   470
 LDC I,158
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,160
 CHK J,0,285
 IXA 4
 LDC I,161
 CHK I,0,285
 STO I
 LOC   480
 LDA 1,22584
 LDC I,161
 CHK J,0,285
 IXA 4
 LDC I,160
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,162
 CHK J,0,285
 LOC   490
 IXA 4
 LDC I,163
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,163
 CHK J,0,285
 IXA 4
 LDC I,162
 CHK I,0,285
 LOC   500
 STO I
 LDA 1,22584
 LDC I,165
 CHK J,0,285
 IXA 4
 LDC I,166
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,166
 LOC   510
 CHK J,0,285
 IXA 4
 LDC I,165
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,167
 CHK J,0,285
 IXA 4
 LDC I,168
 LOC   520
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,168
 CHK J,0,285
 IXA 4
 LDC I,167
 CHK I,0,285
 STO I
 LDA 1,22584
 LOC   530
 LDC I,265
 CHK J,0,285
 IXA 4
 LDC I,266
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,266
 CHK J,0,285
 IXA 4
 LOC   540
 LDC I,265
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,267
 CHK J,0,285
 IXA 4
 LDC I,268
 CHK I,0,285
 STO I
 LOC   550
 LDA 1,22584
 LDC I,268
 CHK J,0,285
 IXA 4
 LDC I,267
 CHK I,0,285
 STO I
 LDA 1,22584
 LDC I,285
 CHK J,0,285
 LOC   560
 IXA 4
 LDC I,285
 CHK I,0,285
 STO I
 LDA 1,23728
 LDC I,0
 CHK J,0,285
 IXA 4
 LDC I,0
 CHK I,0,4
 LOC   570
 STO I
 LDA 1,23728
 LDC I,1
 CHK J,0,285
 IXA 4
 LDC I,0
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,2
 LOC   580
 CHK J,0,285
 IXA 4
 LDC I,0
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,3
 CHK J,0,285
 IXA 4
 LDC I,0
 LOC   590
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,4
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   600
 LDC I,5
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,6
 CHK J,0,285
 IXA 4
 LOC   610
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,7
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   620
 LDA 1,23728
 LDC I,8
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,9
 CHK J,0,285
 LOC   630
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,10
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC   640
 STO I
 LDA 1,23728
 LDC I,11
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,12
 LOC   650
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,13
 CHK J,0,285
 IXA 4
 LDC I,1
 LOC   660
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,14
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   670
 LDC I,15
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,16
 CHK J,0,285
 IXA 4
 LOC   680
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,17
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   690
 LDA 1,23728
 LDC I,18
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,19
 CHK J,0,285
 LOC   700
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,20
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC   710
 STO I
 LDA 1,23728
 LDC I,21
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,22
 LOC   720
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,23
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   730
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,24
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   740
 LDC I,25
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,26
 CHK J,0,285
 IXA 4
 LOC   750
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,27
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   760
 LDA 1,23728
 LDC I,28
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,29
 CHK J,0,285
 LOC   770
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,30
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC   780
 STO I
 LDA 1,23728
 LDC I,31
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,32
 LOC   790
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,33
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   800
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,34
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   810
 LDC I,35
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,36
 CHK J,0,285
 IXA 4
 LOC   820
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,37
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   830
 LDA 1,23728
 LDC I,38
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,39
 CHK J,0,285
 LOC   840
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,40
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC   850
 STO I
 LDA 1,23728
 LDC I,41
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,42
 LOC   860
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,43
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   870
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,44
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   880
 LDC I,45
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,46
 CHK J,0,285
 IXA 4
 LOC   890
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,47
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC   900
 LDA 1,23728
 LDC I,48
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,49
 CHK J,0,285
 LOC   910
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,50
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 LOC   920
 STO I
 LDA 1,23728
 LDC I,51
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,52
 LOC   930
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,53
 CHK J,0,285
 IXA 4
 LDC I,1
 LOC   940
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,54
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC   950
 LDC I,55
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,56
 CHK J,0,285
 IXA 4
 LOC   960
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,57
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC   970
 LDA 1,23728
 LDC I,58
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,59
 CHK J,0,285
 LOC   980
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,60
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC   990
 STO I
 LDA 1,23728
 LDC I,61
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,62
 LOC  1000
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,63
 CHK J,0,285
 IXA 4
 LDC I,2
 LOC  1010
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,64
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1020
 LDC I,65
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,66
 CHK J,0,285
 IXA 4
 LOC  1030
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,67
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1040
 LDA 1,23728
 LDC I,68
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,69
 CHK J,0,285
 LOC  1050
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,70
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1060
 STO I
 LDA 1,23728
 LDC I,71
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,72
 LOC  1070
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,73
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1080
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,74
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1090
 LDC I,75
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,76
 CHK J,0,285
 IXA 4
 LOC  1100
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,77
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1110
 LDA 1,23728
 LDC I,78
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,79
 CHK J,0,285
 LOC  1120
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,80
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1130
 STO I
 LDA 1,23728
 LDC I,81
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,82
 LOC  1140
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,83
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1150
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,84
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1160
 LDC I,85
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,86
 CHK J,0,285
 IXA 4
 LOC  1170
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,87
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1180
 LDA 1,23728
 LDC I,88
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,89
 CHK J,0,285
 LOC  1190
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,90
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1200
 STO I
 LDA 1,23728
 LDC I,91
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,92
 LOC  1210
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,93
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1220
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,94
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1230
 LDC I,95
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,96
 CHK J,0,285
 IXA 4
 LOC  1240
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,97
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1250
 LDA 1,23728
 LDC I,98
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,99
 CHK J,0,285
 LOC  1260
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,100
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1270
 STO I
 LDA 1,23728
 LDC I,101
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,102
 LOC  1280
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,103
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1290
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,104
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1300
 LDC I,105
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,106
 CHK J,0,285
 IXA 4
 LOC  1310
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,107
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1320
 LDA 1,23728
 LDC I,108
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,109
 CHK J,0,285
 LOC  1330
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,110
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1340
 STO I
 LDA 1,23728
 LDC I,111
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,112
 LOC  1350
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,113
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1360
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,114
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1370
 LDC I,115
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,116
 CHK J,0,285
 IXA 4
 LOC  1380
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,117
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1390
 LDA 1,23728
 LDC I,118
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,119
 CHK J,0,285
 LOC  1400
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,120
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1410
 STO I
 LDA 1,23728
 LDC I,121
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,122
 LOC  1420
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,123
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1430
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,124
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1440
 LDC I,125
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,126
 CHK J,0,285
 IXA 4
 LOC  1450
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,127
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1460
 LDA 1,23728
 LDC I,128
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,129
 CHK J,0,285
 LOC  1470
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,130
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1480
 STO I
 LDA 1,23728
 LDC I,131
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,132
 LOC  1490
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,133
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1500
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,134
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1510
 LDC I,135
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,136
 CHK J,0,285
 IXA 4
 LOC  1520
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,137
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  1530
 LDA 1,23728
 LDC I,138
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,139
 CHK J,0,285
 LOC  1540
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,140
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1550
 STO I
 LDA 1,23728
 LDC I,141
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,142
 LOC  1560
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,143
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1570
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,144
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1580
 LDC I,145
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,146
 CHK J,0,285
 IXA 4
 LOC  1590
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,147
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC  1600
 LDA 1,23728
 LDC I,148
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,149
 CHK J,0,285
 LOC  1610
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,150
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1620
 STO I
 LDA 1,23728
 LDC I,151
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,152
 LOC  1630
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,153
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1640
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,154
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1650
 LDC I,155
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,156
 CHK J,0,285
 IXA 4
 LOC  1660
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,157
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC  1670
 LDA 1,23728
 LDC I,158
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,159
 CHK J,0,285
 LOC  1680
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,160
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 LOC  1690
 STO I
 LDA 1,23728
 LDC I,161
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,162
 LOC  1700
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,163
 CHK J,0,285
 IXA 4
 LDC I,1
 LOC  1710
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,164
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1720
 LDC I,165
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,166
 CHK J,0,285
 IXA 4
 LOC  1730
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,167
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC  1740
 LDA 1,23728
 LDC I,168
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,169
 CHK J,0,285
 LOC  1750
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,170
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC  1760
 STO I
 LDA 1,23728
 LDC I,171
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,172
 LOC  1770
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,173
 CHK J,0,285
 IXA 4
 LDC I,4
 LOC  1780
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,174
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1790
 LDC I,175
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,176
 CHK J,0,285
 IXA 4
 LOC  1800
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,177
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC  1810
 LDA 1,23728
 LDC I,178
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,179
 CHK J,0,285
 LOC  1820
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,180
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC  1830
 STO I
 LDA 1,23728
 LDC I,181
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,182
 LOC  1840
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,183
 CHK J,0,285
 IXA 4
 LDC I,4
 LOC  1850
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,184
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1860
 LDC I,185
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,186
 CHK J,0,285
 IXA 4
 LOC  1870
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,187
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC  1880
 LDA 1,23728
 LDC I,188
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,189
 CHK J,0,285
 LOC  1890
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,190
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC  1900
 STO I
 LDA 1,23728
 LDC I,191
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,192
 LOC  1910
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,193
 CHK J,0,285
 IXA 4
 LDC I,4
 LOC  1920
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,194
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  1930
 LDC I,195
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,196
 CHK J,0,285
 IXA 4
 LOC  1940
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,197
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC  1950
 LDA 1,23728
 LDC I,198
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,199
 CHK J,0,285
 LOC  1960
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,200
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC  1970
 STO I
 LDA 1,23728
 LDC I,201
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,202
 LOC  1980
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,203
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1990
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,204
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2000
 LDC I,205
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,206
 CHK J,0,285
 IXA 4
 LOC  2010
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,207
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2020
 LDA 1,23728
 LDC I,208
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,209
 CHK J,0,285
 LOC  2030
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,210
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2040
 STO I
 LDA 1,23728
 LDC I,211
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,212
 LOC  2050
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,213
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2060
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,214
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2070
 LDC I,215
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,216
 CHK J,0,285
 IXA 4
 LOC  2080
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,217
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2090
 LDA 1,23728
 LDC I,218
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,219
 CHK J,0,285
 LOC  2100
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,220
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2110
 STO I
 LDA 1,23728
 LDC I,221
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,222
 LOC  2120
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,223
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2130
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,224
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2140
 LDC I,225
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,226
 CHK J,0,285
 IXA 4
 LOC  2150
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,227
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2160
 LDA 1,23728
 LDC I,228
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,229
 CHK J,0,285
 LOC  2170
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,230
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2180
 STO I
 LDA 1,23728
 LDC I,231
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,232
 LOC  2190
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,233
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2200
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,234
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2210
 LDC I,235
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,236
 CHK J,0,285
 IXA 4
 LOC  2220
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,237
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2230
 LDA 1,23728
 LDC I,238
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,239
 CHK J,0,285
 LOC  2240
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,240
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2250
 STO I
 LDA 1,23728
 LDC I,241
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,242
 LOC  2260
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,243
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2270
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,244
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2280
 LDC I,245
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,246
 CHK J,0,285
 IXA 4
 LOC  2290
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,247
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2300
 LDA 1,23728
 LDC I,248
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,249
 CHK J,0,285
 LOC  2310
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,250
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2320
 STO I
 LDA 1,23728
 LDC I,251
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,252
 LOC  2330
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,253
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2340
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,254
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2350
 LDC I,255
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,256
 CHK J,0,285
 IXA 4
 LOC  2360
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,257
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2370
 LDA 1,23728
 LDC I,258
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,259
 CHK J,0,285
 LOC  2380
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,260
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2390
 STO I
 LDA 1,23728
 LDC I,261
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,262
 LOC  2400
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,263
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2410
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,264
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2420
 LDC I,265
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,266
 CHK J,0,285
 IXA 4
 LOC  2430
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,267
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC  2440
 LDA 1,23728
 LDC I,268
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,269
 CHK J,0,285
 LOC  2450
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,270
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2460
 STO I
 LDA 1,23728
 LDC I,271
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,272
 LOC  2470
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,273
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2480
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,274
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2490
 LDC I,275
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,276
 CHK J,0,285
 IXA 4
 LOC  2500
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,277
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC  2510
 LDA 1,23728
 LDC I,278
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,279
 CHK J,0,285
 LOC  2520
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,280
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  2530
 STO I
 LDA 1,23728
 LDC I,281
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,282
 LOC  2540
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,283
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  2550
 CHK I,0,4
 STO I
 LDA 1,23728
 LDC I,284
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,23728
 LOC  2560
 LDC I,285
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 RET P
L1 DEF        12
 SST P  INIT4232       3       0       0       0       0
 LOC     0
INIT4232 ENT P,3,L1  INIT4          1 1 1
 LDA 1,24872
 LDC I,0
 CHK J,0,285
 IXA 15
 LCA 'ILLEGAL        '
 MOV 15
 LDA 1,24872
 LDC I,1
 CHK J,0,285
 LOC    10
 IXA 15
 LCA 'PLOC           '
 MOV 15
 LDA 1,24872
 LDC I,2
 CHK J,0,285
 IXA 15
 LCA 'S1LOC          '
 MOV 15
 LDA 1,24872
 LOC    20
 LDC I,3
 CHK J,0,285
 IXA 15
 LCA 'FREEREG        '
 MOV 15
 LDA 1,24872
 LDC I,4
 CHK J,0,285
 IXA 15
 LCA 'ABS.Q          '
 LOC    30
 MOV 15
 LDA 1,24872
 LDC I,5
 CHK J,0,285
 IXA 15
 LCA 'ABS.H          '
 MOV 15
 LDA 1,24872
 LDC I,6
 CHK J,0,285
 LOC    40
 IXA 15
 LCA 'ABS.S          '
 MOV 15
 LDA 1,24872
 LDC I,7
 CHK J,0,285
 IXA 15
 LCA 'ABS.D          '
 MOV 15
 LDA 1,24872
 LOC    50
 LDC I,8
 CHK J,0,285
 IXA 15
 LCA 'ADD.S          '
 MOV 15
 LDA 1,24872
 LDC I,9
 CHK J,0,285
 IXA 15
 LCA 'ADD.D          '
 LOC    60
 MOV 15
 LDA 1,24872
 LDC I,10
 CHK J,0,285
 IXA 15
 LCA 'ADJSP.UP       '
 MOV 15
 LDA 1,24872
 LDC I,11
 CHK J,0,285
 LOC    70
 IXA 15
 LCA 'ADJSP.DN       '
 MOV 15
 LDA 1,24872
 LDC I,12
 CHK J,0,285
 IXA 15
 LCA 'ALLOC.1        '
 MOV 15
 LDA 1,24872
 LOC    80
 LDC I,13
 CHK J,0,285
 IXA 15
 LCA 'AND.Q          '
 MOV 15
 LDA 1,24872
 LDC I,14
 CHK J,0,285
 IXA 15
 LCA 'AND.D          '
 LOC    90
 MOV 15
 LDA 1,24872
 LDC I,15
 CHK J,0,285
 IXA 15
 LCA 'ANDTC.D        '
 MOV 15
 LDA 1,24872
 LDC I,16
 CHK J,0,285
 LOC   100
 IXA 15
 LCA 'ANDCT.D        '
 MOV 15
 LDA 1,24872
 LDC I,17
 CHK J,0,285
 IXA 15
 LCA 'BLKCMP.EQL.Q   '
 MOV 15
 LDA 1,24872
 LOC   110
 LDC I,18
 CHK J,0,285
 IXA 15
 LCA 'BLKCMP.NEQ.Q   '
 MOV 15
 LDA 1,24872
 LDC I,19
 CHK J,0,285
 IXA 15
 LCA 'BLKCMP.GEQ.Q   '
 LOC   120
 MOV 15
 LDA 1,24872
 LDC I,20
 CHK J,0,285
 IXA 15
 LCA 'BLKCMP.GTR.Q   '
 MOV 15
 LDA 1,24872
 LDC I,21
 CHK J,0,285
 LOC   130
 IXA 15
 LCA 'BLKCMP.LEQ.Q   '
 MOV 15
 LDA 1,24872
 LDC I,22
 CHK J,0,285
 IXA 15
 LCA 'BLKCMP.LSS.Q   '
 MOV 15
 LDA 1,24872
 LOC   140
 LDC I,23
 CHK J,0,285
 IXA 15
 LCA 'BLKMOV         '
 MOV 15
 LDA 1,24872
 LDC I,24
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.B.Q     '
 LOC   150
 MOV 15
 LDA 1,24872
 LDC I,25
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.B.H     '
 MOV 15
 LDA 1,24872
 LDC I,26
 CHK J,0,285
 LOC   160
 IXA 15
 LCA 'BNDTRP.B.S     '
 MOV 15
 LDA 1,24872
 LDC I,27
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.B.D     '
 MOV 15
 LDA 1,24872
 LOC   170
 LDC I,28
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.M1.Q    '
 MOV 15
 LDA 1,24872
 LDC I,29
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.M1.H    '
 LOC   180
 MOV 15
 LDA 1,24872
 LDC I,30
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.M1.S    '
 MOV 15
 LDA 1,24872
 LDC I,31
 CHK J,0,285
 LOC   190
 IXA 15
 LCA 'BNDTRP.M1.D    '
 MOV 15
 LDA 1,24872
 LDC I,32
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.0.Q     '
 MOV 15
 LDA 1,24872
 LOC   200
 LDC I,33
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.0.H     '
 MOV 15
 LDA 1,24872
 LDC I,34
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.0.S     '
 LOC   210
 MOV 15
 LDA 1,24872
 LDC I,35
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.0.D     '
 MOV 15
 LDA 1,24872
 LDC I,36
 CHK J,0,285
 LOC   220
 IXA 15
 LCA 'BNDTRP.1.Q     '
 MOV 15
 LDA 1,24872
 LDC I,37
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.1.H     '
 MOV 15
 LDA 1,24872
 LOC   230
 LDC I,38
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.1.S     '
 MOV 15
 LDA 1,24872
 LDC I,39
 CHK J,0,285
 IXA 15
 LCA 'BNDTRP.1.D     '
 LOC   240
 MOV 15
 LDA 1,24872
 LDC I,40
 CHK J,0,285
 IXA 15
 LCA 'DEC.S          '
 MOV 15
 LDA 1,24872
 LDC I,41
 CHK J,0,285
 LOC   250
 IXA 15
 LCA 'FIX.DM.S.S     '
 MOV 15
 LDA 1,24872
 LDC I,42
 CHK J,0,285
 IXA 15
 LCA 'FIX.DM.S.D     '
 MOV 15
 LDA 1,24872
 LOC   260
 LDC I,43
 CHK J,0,285
 IXA 15
 LCA 'FLOAT.S.Q      '
 MOV 15
 LDA 1,24872
 LDC I,44
 CHK J,0,285
 IXA 15
 LCA 'FLOAT.S.H      '
 LOC   270
 MOV 15
 LDA 1,24872
 LDC I,45
 CHK J,0,285
 IXA 15
 LCA 'FLOAT.S.S      '
 MOV 15
 LDA 1,24872
 LDC I,46
 CHK J,0,285
 LOC   280
 IXA 15
 LCA 'FLOAT.S.D      '
 MOV 15
 LDA 1,24872
 LDC I,47
 CHK J,0,285
 IXA 15
 LCA 'FADD.S         '
 MOV 15
 LDA 1,24872
 LOC   290
 LDC I,48
 CHK J,0,285
 IXA 15
 LCA 'FADD.D         '
 MOV 15
 LDA 1,24872
 LDC I,49
 CHK J,0,285
 IXA 15
 LCA 'FSUB.S         '
 LOC   300
 MOV 15
 LDA 1,24872
 LDC I,50
 CHK J,0,285
 IXA 15
 LCA 'FSUBV.S        '
 MOV 15
 LDA 1,24872
 LDC I,51
 CHK J,0,285
 LOC   310
 IXA 15
 LCA 'FSUB.D         '
 MOV 15
 LDA 1,24872
 LDC I,52
 CHK J,0,285
 IXA 15
 LCA 'FSUBV.D        '
 MOV 15
 LDA 1,24872
 LOC   320
 LDC I,53
 CHK J,0,285
 IXA 15
 LCA 'FMULT.S        '
 MOV 15
 LDA 1,24872
 LDC I,54
 CHK J,0,285
 IXA 15
 LCA 'FMULT.D        '
 LOC   330
 MOV 15
 LDA 1,24872
 LDC I,55
 CHK J,0,285
 IXA 15
 LCA 'FDIV.S         '
 MOV 15
 LDA 1,24872
 LDC I,56
 CHK J,0,285
 LOC   340
 IXA 15
 LCA 'FDIVV.S        '
 MOV 15
 LDA 1,24872
 LDC I,57
 CHK J,0,285
 IXA 15
 LCA 'FDIV.D         '
 MOV 15
 LDA 1,24872
 LOC   350
 LDC I,58
 CHK J,0,285
 IXA 15
 LCA 'FDIVV.D        '
 MOV 15
 LDA 1,24872
 LDC I,59
 CHK J,0,285
 IXA 15
 LCA 'FTRANS.S.D     '
 LOC   360
 MOV 15
 LDA 1,24872
 LDC I,60
 CHK J,0,285
 IXA 15
 LCA 'FTRANS.D.S     '
 MOV 15
 LDA 1,24872
 LDC I,61
 CHK J,0,285
 LOC   370
 IXA 15
 LCA 'HALT           '
 MOV 15
 LDA 1,24872
 LDC I,62
 CHK J,0,285
 IXA 15
 LCA 'INC.S          '
 MOV 15
 LDA 1,24872
 LOC   380
 LDC I,63
 CHK J,0,285
 IXA 15
 LCA 'JMPA           '
 MOV 15
 LDA 1,24872
 LDC I,64
 CHK J,0,285
 IXA 15
 LCA 'JMPZ.EQL.Q     '
 LOC   390
 MOV 15
 LDA 1,24872
 LDC I,65
 CHK J,0,285
 IXA 15
 LCA 'JSR            '
 MOV 15
 LDA 1,24872
 LDC I,66
 CHK J,0,285
 LOC   400
 IXA 15
 LCA 'MOVADR         '
 MOV 15
 LDA 1,24872
 LDC I,67
 CHK J,0,285
 IXA 15
 LCA 'MOV.Q.Q        '
 MOV 15
 LDA 1,24872
 LOC   410
 LDC I,68
 CHK J,0,285
 IXA 15
 LCA 'MOV.Q.H        '
 MOV 15
 LDA 1,24872
 LDC I,69
 CHK J,0,285
 IXA 15
 LCA 'MOV.H.Q        '
 LOC   420
 MOV 15
 LDA 1,24872
 LDC I,70
 CHK J,0,285
 IXA 15
 LCA 'MOV.H.H        '
 MOV 15
 LDA 1,24872
 LDC I,71
 CHK J,0,285
 LOC   430
 IXA 15
 LCA 'MOV.Q.S        '
 MOV 15
 LDA 1,24872
 LDC I,72
 CHK J,0,285
 IXA 15
 LCA 'MOV.H.S        '
 MOV 15
 LDA 1,24872
 LOC   440
 LDC I,73
 CHK J,0,285
 IXA 15
 LCA 'MOV.S.Q        '
 MOV 15
 LDA 1,24872
 LDC I,74
 CHK J,0,285
 IXA 15
 LCA 'MOV.S.H        '
 LOC   450
 MOV 15
 LDA 1,24872
 LDC I,75
 CHK J,0,285
 IXA 15
 LCA 'MOV.S.S        '
 MOV 15
 LDA 1,24872
 LDC I,76
 CHK J,0,285
 LOC   460
 IXA 15
 LCA 'MOV.Q.D        '
 MOV 15
 LDA 1,24872
 LDC I,77
 CHK J,0,285
 IXA 15
 LCA 'MOV.H.D        '
 MOV 15
 LDA 1,24872
 LOC   470
 LDC I,78
 CHK J,0,285
 IXA 15
 LCA 'MOV.S.D        '
 MOV 15
 LDA 1,24872
 LDC I,79
 CHK J,0,285
 IXA 15
 LCA 'MOV.D.Q        '
 LOC   480
 MOV 15
 LDA 1,24872
 LDC I,80
 CHK J,0,285
 IXA 15
 LCA 'MOV.D.H        '
 MOV 15
 LDA 1,24872
 LDC I,81
 CHK J,0,285
 LOC   490
 IXA 15
 LCA 'MOV.D.S        '
 MOV 15
 LDA 1,24872
 LDC I,82
 CHK J,0,285
 IXA 15
 LCA 'MOV.D.D        '
 MOV 15
 LDA 1,24872
 LOC   500
 LDC I,83
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.2        '
 MOV 15
 LDA 1,24872
 LDC I,84
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.3        '
 LOC   510
 MOV 15
 LDA 1,24872
 LDC I,85
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.4        '
 MOV 15
 LDA 1,24872
 LDC I,86
 CHK J,0,285
 LOC   520
 IXA 15
 LCA 'MOVMQ.5        '
 MOV 15
 LDA 1,24872
 LDC I,87
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.6        '
 MOV 15
 LDA 1,24872
 LOC   530
 LDC I,88
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.7        '
 MOV 15
 LDA 1,24872
 LDC I,89
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.8        '
 LOC   540
 MOV 15
 LDA 1,24872
 LDC I,90
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.9        '
 MOV 15
 LDA 1,24872
 LDC I,91
 CHK J,0,285
 LOC   550
 IXA 15
 LCA 'MOVMQ.10       '
 MOV 15
 LDA 1,24872
 LDC I,92
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.11       '
 MOV 15
 LDA 1,24872
 LOC   560
 LDC I,93
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.12       '
 MOV 15
 LDA 1,24872
 LDC I,94
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.13       '
 LOC   570
 MOV 15
 LDA 1,24872
 LDC I,95
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.14       '
 MOV 15
 LDA 1,24872
 LDC I,96
 CHK J,0,285
 LOC   580
 IXA 15
 LCA 'MOVMQ.15       '
 MOV 15
 LDA 1,24872
 LDC I,97
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.16       '
 MOV 15
 LDA 1,24872
 LOC   590
 LDC I,98
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.17       '
 MOV 15
 LDA 1,24872
 LDC I,99
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.18       '
 LOC   600
 MOV 15
 LDA 1,24872
 LDC I,100
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.19       '
 MOV 15
 LDA 1,24872
 LDC I,101
 CHK J,0,285
 LOC   610
 IXA 15
 LCA 'MOVMQ.20       '
 MOV 15
 LDA 1,24872
 LDC I,102
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.21       '
 MOV 15
 LDA 1,24872
 LOC   620
 LDC I,103
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.22       '
 MOV 15
 LDA 1,24872
 LDC I,104
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.23       '
 LOC   630
 MOV 15
 LDA 1,24872
 LDC I,105
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.24       '
 MOV 15
 LDA 1,24872
 LDC I,106
 CHK J,0,285
 LOC   640
 IXA 15
 LCA 'MOVMQ.25       '
 MOV 15
 LDA 1,24872
 LDC I,107
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.26       '
 MOV 15
 LDA 1,24872
 LOC   650
 LDC I,108
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.27       '
 MOV 15
 LDA 1,24872
 LDC I,109
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.28       '
 LOC   660
 MOV 15
 LDA 1,24872
 LDC I,110
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.29       '
 MOV 15
 LDA 1,24872
 LDC I,111
 CHK J,0,285
 LOC   670
 IXA 15
 LCA 'MOVMQ.30       '
 MOV 15
 LDA 1,24872
 LDC I,112
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.31       '
 MOV 15
 LDA 1,24872
 LOC   680
 LDC I,113
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.32       '
 MOV 15
 LDA 1,24872
 LDC I,114
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.64       '
 LOC   690
 MOV 15
 LDA 1,24872
 LDC I,115
 CHK J,0,285
 IXA 15
 LCA 'MOVMQ.128      '
 MOV 15
 LDA 1,24872
 LDC I,116
 CHK J,0,285
 LOC   700
 IXA 15
 LCA 'MOVMS.2        '
 MOV 15
 LDA 1,24872
 LDC I,117
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.3        '
 MOV 15
 LDA 1,24872
 LOC   710
 LDC I,118
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.4        '
 MOV 15
 LDA 1,24872
 LDC I,119
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.5        '
 LOC   720
 MOV 15
 LDA 1,24872
 LDC I,120
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.6        '
 MOV 15
 LDA 1,24872
 LDC I,121
 CHK J,0,285
 LOC   730
 IXA 15
 LCA 'MOVMS.7        '
 MOV 15
 LDA 1,24872
 LDC I,122
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.8        '
 MOV 15
 LDA 1,24872
 LOC   740
 LDC I,123
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.9        '
 MOV 15
 LDA 1,24872
 LDC I,124
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.10       '
 LOC   750
 MOV 15
 LDA 1,24872
 LDC I,125
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.11       '
 MOV 15
 LDA 1,24872
 LDC I,126
 CHK J,0,285
 LOC   760
 IXA 15
 LCA 'MOVMS.12       '
 MOV 15
 LDA 1,24872
 LDC I,127
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.13       '
 MOV 15
 LDA 1,24872
 LOC   770
 LDC I,128
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.14       '
 MOV 15
 LDA 1,24872
 LDC I,129
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.15       '
 LOC   780
 MOV 15
 LDA 1,24872
 LDC I,130
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.16       '
 MOV 15
 LDA 1,24872
 LDC I,131
 CHK J,0,285
 LOC   790
 IXA 15
 LCA 'MOVMS.17       '
 MOV 15
 LDA 1,24872
 LDC I,132
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.18       '
 MOV 15
 LDA 1,24872
 LOC   800
 LDC I,133
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.19       '
 MOV 15
 LDA 1,24872
 LDC I,134
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.20       '
 LOC   810
 MOV 15
 LDA 1,24872
 LDC I,135
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.21       '
 MOV 15
 LDA 1,24872
 LDC I,136
 CHK J,0,285
 LOC   820
 IXA 15
 LCA 'MOVMS.22       '
 MOV 15
 LDA 1,24872
 LDC I,137
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.23       '
 MOV 15
 LDA 1,24872
 LOC   830
 LDC I,138
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.24       '
 MOV 15
 LDA 1,24872
 LDC I,139
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.25       '
 LOC   840
 MOV 15
 LDA 1,24872
 LDC I,140
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.26       '
 MOV 15
 LDA 1,24872
 LDC I,141
 CHK J,0,285
 LOC   850
 IXA 15
 LCA 'MOVMS.27       '
 MOV 15
 LDA 1,24872
 LDC I,142
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.28       '
 MOV 15
 LDA 1,24872
 LOC   860
 LDC I,143
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.29       '
 MOV 15
 LDA 1,24872
 LDC I,144
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.30       '
 LOC   870
 MOV 15
 LDA 1,24872
 LDC I,145
 CHK J,0,285
 IXA 15
 LCA 'MOVMS.31       '
 MOV 15
 LDA 1,24872
 LDC I,146
 CHK J,0,285
 LOC   880
 IXA 15
 LCA 'MOVMS.32       '
 MOV 15
 LDA 1,24872
 LDC I,147
 CHK J,0,285
 IXA 15
 LCA 'MULT.S         '
 MOV 15
 LDA 1,24872
 LOC   890
 LDC I,148
 CHK J,0,285
 IXA 15
 LCA 'MULT.D         '
 MOV 15
 LDA 1,24872
 LDC I,149
 CHK J,0,285
 IXA 15
 LCA 'NEG.Q          '
 LOC   900
 MOV 15
 LDA 1,24872
 LDC I,150
 CHK J,0,285
 IXA 15
 LCA 'NEG.H          '
 MOV 15
 LDA 1,24872
 LDC I,151
 CHK J,0,285
 LOC   910
 IXA 15
 LCA 'NEG.S          '
 MOV 15
 LDA 1,24872
 LDC I,152
 CHK J,0,285
 IXA 15
 LCA 'NEG.D          '
 MOV 15
 LDA 1,24872
 LOC   920
 LDC I,153
 CHK J,0,285
 IXA 15
 LCA 'NOP            '
 MOV 15
 LDA 1,24872
 LDC I,154
 CHK J,0,285
 IXA 15
 LCA 'OR.Q           '
 LOC   930
 MOV 15
 LDA 1,24872
 LDC I,155
 CHK J,0,285
 IXA 15
 LCA 'OR.D           '
 MOV 15
 LDA 1,24872
 LDC I,156
 CHK J,0,285
 LOC   940
 IXA 15
 LCA 'QUO.S          '
 MOV 15
 LDA 1,24872
 LDC I,157
 CHK J,0,285
 IXA 15
 LCA 'QUOV.S         '
 MOV 15
 LDA 1,24872
 LOC   950
 LDC I,158
 CHK J,0,285
 IXA 15
 LCA 'QUO.D          '
 MOV 15
 LDA 1,24872
 LDC I,159
 CHK J,0,285
 IXA 15
 LCA 'QUOV.D         '
 LOC   960
 MOV 15
 LDA 1,24872
 LDC I,160
 CHK J,0,285
 IXA 15
 LCA 'REM.S          '
 MOV 15
 LDA 1,24872
 LDC I,161
 CHK J,0,285
 LOC   970
 IXA 15
 LCA 'REMV.S         '
 MOV 15
 LDA 1,24872
 LDC I,162
 CHK J,0,285
 IXA 15
 LCA 'REM.D          '
 MOV 15
 LDA 1,24872
 LOC   980
 LDC I,163
 CHK J,0,285
 IXA 15
 LCA 'REMV.D         '
 MOV 15
 LDA 1,24872
 LDC I,164
 CHK J,0,285
 IXA 15
 LCA 'RETSR          '
 LOC   990
 MOV 15
 LDA 1,24872
 LDC I,165
 CHK J,0,285
 IXA 15
 LCA 'SHF.LF.D       '
 MOV 15
 LDA 1,24872
 LDC I,166
 CHK J,0,285
 LOC  1000
 IXA 15
 LCA 'SHFV.LF.D      '
 MOV 15
 LDA 1,24872
 LDC I,167
 CHK J,0,285
 IXA 15
 LCA 'SHFA.LF.S      '
 MOV 15
 LDA 1,24872
 LOC  1010
 LDC I,168
 CHK J,0,285
 IXA 15
 LCA 'SHFAV.LF.S     '
 MOV 15
 LDA 1,24872
 LDC I,169
 CHK J,0,285
 IXA 15
 LCA 'SKP.EQL.Q      '
 LOC  1020
 MOV 15
 LDA 1,24872
 LDC I,170
 CHK J,0,285
 IXA 15
 LCA 'SKP.NEQ.Q      '
 MOV 15
 LDA 1,24872
 LDC I,171
 CHK J,0,285
 LOC  1030
 IXA 15
 LCA 'SKP.GEQ.Q      '
 MOV 15
 LDA 1,24872
 LDC I,172
 CHK J,0,285
 IXA 15
 LCA 'SKP.GTR.Q      '
 MOV 15
 LDA 1,24872
 LOC  1040
 LDC I,173
 CHK J,0,285
 IXA 15
 LCA 'SKP.LEQ.Q      '
 MOV 15
 LDA 1,24872
 LDC I,174
 CHK J,0,285
 IXA 15
 LCA 'SKP.LSS.Q      '
 LOC  1050
 MOV 15
 LDA 1,24872
 LDC I,175
 CHK J,0,285
 IXA 15
 LCA 'SKP.EQL.H      '
 MOV 15
 LDA 1,24872
 LDC I,176
 CHK J,0,285
 LOC  1060
 IXA 15
 LCA 'SKP.NEQ.H      '
 MOV 15
 LDA 1,24872
 LDC I,177
 CHK J,0,285
 IXA 15
 LCA 'SKP.GEQ.H      '
 MOV 15
 LDA 1,24872
 LOC  1070
 LDC I,178
 CHK J,0,285
 IXA 15
 LCA 'SKP.GTR.H      '
 MOV 15
 LDA 1,24872
 LDC I,179
 CHK J,0,285
 IXA 15
 LCA 'SKP.LEQ.H      '
 LOC  1080
 MOV 15
 LDA 1,24872
 LDC I,180
 CHK J,0,285
 IXA 15
 LCA 'SKP.LSS.H      '
 MOV 15
 LDA 1,24872
 LDC I,181
 CHK J,0,285
 LOC  1090
 IXA 15
 LCA 'SKP.EQL.S      '
 MOV 15
 LDA 1,24872
 LDC I,182
 CHK J,0,285
 IXA 15
 LCA 'SKP.NEQ.S      '
 MOV 15
 LDA 1,24872
 LOC  1100
 LDC I,183
 CHK J,0,285
 IXA 15
 LCA 'SKP.GEQ.S      '
 MOV 15
 LDA 1,24872
 LDC I,184
 CHK J,0,285
 IXA 15
 LCA 'SKP.GTR.S      '
 LOC  1110
 MOV 15
 LDA 1,24872
 LDC I,185
 CHK J,0,285
 IXA 15
 LCA 'SKP.LEQ.S      '
 MOV 15
 LDA 1,24872
 LDC I,186
 CHK J,0,285
 LOC  1120
 IXA 15
 LCA 'SKP.LSS.S      '
 MOV 15
 LDA 1,24872
 LDC I,187
 CHK J,0,285
 IXA 15
 LCA 'SKP.EQL.D      '
 MOV 15
 LDA 1,24872
 LOC  1130
 LDC I,188
 CHK J,0,285
 IXA 15
 LCA 'SKP.NEQ.D      '
 MOV 15
 LDA 1,24872
 LDC I,189
 CHK J,0,285
 IXA 15
 LCA 'SKP.GEQ.D      '
 LOC  1140
 MOV 15
 LDA 1,24872
 LDC I,190
 CHK J,0,285
 IXA 15
 LCA 'SKP.GTR.D      '
 MOV 15
 LDA 1,24872
 LDC I,191
 CHK J,0,285
 LOC  1150
 IXA 15
 LCA 'SKP.LEQ.D      '
 MOV 15
 LDA 1,24872
 LDC I,192
 CHK J,0,285
 IXA 15
 LCA 'SKP.LSS.D      '
 MOV 15
 LDA 1,24872
 LOC  1160
 LDC I,193
 CHK J,0,285
 IXA 15
 LCA 'SKP.NON.Q      '
 MOV 15
 LDA 1,24872
 LDC I,194
 CHK J,0,285
 IXA 15
 LCA 'SKP.NON.H      '
 LOC  1170
 MOV 15
 LDA 1,24872
 LDC I,195
 CHK J,0,285
 IXA 15
 LCA 'SKP.NON.S      '
 MOV 15
 LDA 1,24872
 LDC I,196
 CHK J,0,285
 LOC  1180
 IXA 15
 LCA 'SKP.NON.D      '
 MOV 15
 LDA 1,24872
 LDC I,197
 CHK J,0,285
 IXA 15
 LCA 'SKP.ANY.Q      '
 MOV 15
 LDA 1,24872
 LOC  1190
 LDC I,198
 CHK J,0,285
 IXA 15
 LCA 'SKP.ANY.H      '
 MOV 15
 LDA 1,24872
 LDC I,199
 CHK J,0,285
 IXA 15
 LCA 'SKP.ANY.S      '
 LOC  1200
 MOV 15
 LDA 1,24872
 LDC I,200
 CHK J,0,285
 IXA 15
 LCA 'SKP.ANY.D      '
 MOV 15
 LDA 1,24872
 LDC I,201
 CHK J,0,285
 LOC  1210
 IXA 15
 LCA 'SLR.0          '
 MOV 15
 LDA 1,24872
 LDC I,202
 CHK J,0,285
 IXA 15
 LCA 'SLR.1          '
 MOV 15
 LDA 1,24872
 LOC  1220
 LDC I,203
 CHK J,0,285
 IXA 15
 LCA 'SLR.2          '
 MOV 15
 LDA 1,24872
 LDC I,204
 CHK J,0,285
 IXA 15
 LCA 'SLR.3          '
 LOC  1230
 MOV 15
 LDA 1,24872
 LDC I,205
 CHK J,0,285
 IXA 15
 LCA 'SLR.4          '
 MOV 15
 LDA 1,24872
 LDC I,206
 CHK J,0,285
 LOC  1240
 IXA 15
 LCA 'SLR.5          '
 MOV 15
 LDA 1,24872
 LDC I,207
 CHK J,0,285
 IXA 15
 LCA 'SLR.6          '
 MOV 15
 LDA 1,24872
 LOC  1250
 LDC I,208
 CHK J,0,285
 IXA 15
 LCA 'SLR.7          '
 MOV 15
 LDA 1,24872
 LDC I,209
 CHK J,0,285
 IXA 15
 LCA 'SLR.8          '
 LOC  1260
 MOV 15
 LDA 1,24872
 LDC I,210
 CHK J,0,285
 IXA 15
 LCA 'SLR.9          '
 MOV 15
 LDA 1,24872
 LDC I,211
 CHK J,0,285
 LOC  1270
 IXA 15
 LCA 'SLR.10         '
 MOV 15
 LDA 1,24872
 LDC I,212
 CHK J,0,285
 IXA 15
 LCA 'SLR.11         '
 MOV 15
 LDA 1,24872
 LOC  1280
 LDC I,213
 CHK J,0,285
 IXA 15
 LCA 'SLR.12         '
 MOV 15
 LDA 1,24872
 LDC I,214
 CHK J,0,285
 IXA 15
 LCA 'SLR.13         '
 LOC  1290
 MOV 15
 LDA 1,24872
 LDC I,215
 CHK J,0,285
 IXA 15
 LCA 'SLR.14         '
 MOV 15
 LDA 1,24872
 LDC I,216
 CHK J,0,285
 LOC  1300
 IXA 15
 LCA 'SLR.15         '
 MOV 15
 LDA 1,24872
 LDC I,217
 CHK J,0,285
 IXA 15
 LCA 'SLR.16         '
 MOV 15
 LDA 1,24872
 LOC  1310
 LDC I,218
 CHK J,0,285
 IXA 15
 LCA 'SLR.17         '
 MOV 15
 LDA 1,24872
 LDC I,219
 CHK J,0,285
 IXA 15
 LCA 'SLR.18         '
 LOC  1320
 MOV 15
 LDA 1,24872
 LDC I,220
 CHK J,0,285
 IXA 15
 LCA 'SLR.19         '
 MOV 15
 LDA 1,24872
 LDC I,221
 CHK J,0,285
 LOC  1330
 IXA 15
 LCA 'SLR.20         '
 MOV 15
 LDA 1,24872
 LDC I,222
 CHK J,0,285
 IXA 15
 LCA 'SLR.21         '
 MOV 15
 LDA 1,24872
 LOC  1340
 LDC I,223
 CHK J,0,285
 IXA 15
 LCA 'SLR.22         '
 MOV 15
 LDA 1,24872
 LDC I,224
 CHK J,0,285
 IXA 15
 LCA 'SLR.23         '
 LOC  1350
 MOV 15
 LDA 1,24872
 LDC I,225
 CHK J,0,285
 IXA 15
 LCA 'SLR.24         '
 MOV 15
 LDA 1,24872
 LDC I,226
 CHK J,0,285
 LOC  1360
 IXA 15
 LCA 'SLR.25         '
 MOV 15
 LDA 1,24872
 LDC I,227
 CHK J,0,285
 IXA 15
 LCA 'SLR.26         '
 MOV 15
 LDA 1,24872
 LOC  1370
 LDC I,228
 CHK J,0,285
 IXA 15
 LCA 'SLR.27         '
 MOV 15
 LDA 1,24872
 LDC I,229
 CHK J,0,285
 IXA 15
 LCA 'SLR.28         '
 LOC  1380
 MOV 15
 LDA 1,24872
 LDC I,230
 CHK J,0,285
 IXA 15
 LCA 'SLR.29         '
 MOV 15
 LDA 1,24872
 LDC I,231
 CHK J,0,285
 LOC  1390
 IXA 15
 LCA 'SLR.30         '
 MOV 15
 LDA 1,24872
 LDC I,232
 CHK J,0,285
 IXA 15
 LCA 'SLR.31         '
 MOV 15
 LDA 1,24872
 LOC  1400
 LDC I,233
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.0       '
 MOV 15
 LDA 1,24872
 LDC I,234
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.1       '
 LOC  1410
 MOV 15
 LDA 1,24872
 LDC I,235
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.2       '
 MOV 15
 LDA 1,24872
 LDC I,236
 CHK J,0,285
 LOC  1420
 IXA 15
 LCA 'SLRADR.3       '
 MOV 15
 LDA 1,24872
 LDC I,237
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.4       '
 MOV 15
 LDA 1,24872
 LOC  1430
 LDC I,238
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.5       '
 MOV 15
 LDA 1,24872
 LDC I,239
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.6       '
 LOC  1440
 MOV 15
 LDA 1,24872
 LDC I,240
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.7       '
 MOV 15
 LDA 1,24872
 LDC I,241
 CHK J,0,285
 LOC  1450
 IXA 15
 LCA 'SLRADR.8       '
 MOV 15
 LDA 1,24872
 LDC I,242
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.9       '
 MOV 15
 LDA 1,24872
 LOC  1460
 LDC I,243
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.10      '
 MOV 15
 LDA 1,24872
 LDC I,244
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.11      '
 LOC  1470
 MOV 15
 LDA 1,24872
 LDC I,245
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.12      '
 MOV 15
 LDA 1,24872
 LDC I,246
 CHK J,0,285
 LOC  1480
 IXA 15
 LCA 'SLRADR.13      '
 MOV 15
 LDA 1,24872
 LDC I,247
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.14      '
 MOV 15
 LDA 1,24872
 LOC  1490
 LDC I,248
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.15      '
 MOV 15
 LDA 1,24872
 LDC I,249
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.16      '
 LOC  1500
 MOV 15
 LDA 1,24872
 LDC I,250
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.17      '
 MOV 15
 LDA 1,24872
 LDC I,251
 CHK J,0,285
 LOC  1510
 IXA 15
 LCA 'SLRADR.18      '
 MOV 15
 LDA 1,24872
 LDC I,252
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.19      '
 MOV 15
 LDA 1,24872
 LOC  1520
 LDC I,253
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.20      '
 MOV 15
 LDA 1,24872
 LDC I,254
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.21      '
 LOC  1530
 MOV 15
 LDA 1,24872
 LDC I,255
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.22      '
 MOV 15
 LDA 1,24872
 LDC I,256
 CHK J,0,285
 LOC  1540
 IXA 15
 LCA 'SLRADR.23      '
 MOV 15
 LDA 1,24872
 LDC I,257
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.24      '
 MOV 15
 LDA 1,24872
 LOC  1550
 LDC I,258
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.25      '
 MOV 15
 LDA 1,24872
 LDC I,259
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.26      '
 LOC  1560
 MOV 15
 LDA 1,24872
 LDC I,260
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.27      '
 MOV 15
 LDA 1,24872
 LDC I,261
 CHK J,0,285
 LOC  1570
 IXA 15
 LCA 'SLRADR.28      '
 MOV 15
 LDA 1,24872
 LDC I,262
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.29      '
 MOV 15
 LDA 1,24872
 LOC  1580
 LDC I,263
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.30      '
 MOV 15
 LDA 1,24872
 LDC I,264
 CHK J,0,285
 IXA 15
 LCA 'SLRADR.31      '
 LOC  1590
 MOV 15
 LDA 1,24872
 LDC I,265
 CHK J,0,285
 IXA 15
 LCA 'SUB.S          '
 MOV 15
 LDA 1,24872
 LDC I,266
 CHK J,0,285
 LOC  1600
 IXA 15
 LCA 'SUBV.S         '
 MOV 15
 LDA 1,24872
 LDC I,267
 CHK J,0,285
 IXA 15
 LCA 'SUB.D          '
 MOV 15
 LDA 1,24872
 LOC  1610
 LDC I,268
 CHK J,0,285
 IXA 15
 LCA 'SUBV.D         '
 MOV 15
 LDA 1,24872
 LDC I,269
 CHK J,0,285
 IXA 15
 LCA 'TRANS.Q.Q      '
 LOC  1620
 MOV 15
 LDA 1,24872
 LDC I,270
 CHK J,0,285
 IXA 15
 LCA 'TRANS.Q.H      '
 MOV 15
 LDA 1,24872
 LDC I,271
 CHK J,0,285
 LOC  1630
 IXA 15
 LCA 'TRANS.H.Q      '
 MOV 15
 LDA 1,24872
 LDC I,272
 CHK J,0,285
 IXA 15
 LCA 'TRANS.H.H      '
 MOV 15
 LDA 1,24872
 LOC  1640
 LDC I,273
 CHK J,0,285
 IXA 15
 LCA 'TRANS.Q.S      '
 MOV 15
 LDA 1,24872
 LDC I,274
 CHK J,0,285
 IXA 15
 LCA 'TRANS.H.S      '
 LOC  1650
 MOV 15
 LDA 1,24872
 LDC I,275
 CHK J,0,285
 IXA 15
 LCA 'TRANS.S.Q      '
 MOV 15
 LDA 1,24872
 LDC I,276
 CHK J,0,285
 LOC  1660
 IXA 15
 LCA 'TRANS.S.H      '
 MOV 15
 LDA 1,24872
 LDC I,277
 CHK J,0,285
 IXA 15
 LCA 'TRANS.S.S      '
 MOV 15
 LDA 1,24872
 LOC  1670
 LDC I,278
 CHK J,0,285
 IXA 15
 LCA 'TRANS.Q.D      '
 MOV 15
 LDA 1,24872
 LDC I,279
 CHK J,0,285
 IXA 15
 LCA 'TRANS.H.D      '
 LOC  1680
 MOV 15
 LDA 1,24872
 LDC I,280
 CHK J,0,285
 IXA 15
 LCA 'TRANS.S.D      '
 MOV 15
 LDA 1,24872
 LDC I,281
 CHK J,0,285
 LOC  1690
 IXA 15
 LCA 'TRANS.D.Q      '
 MOV 15
 LDA 1,24872
 LDC I,282
 CHK J,0,285
 IXA 15
 LCA 'TRANS.D.H      '
 MOV 15
 LDA 1,24872
 LOC  1700
 LDC I,283
 CHK J,0,285
 IXA 15
 LCA 'TRANS.D.S      '
 MOV 15
 LDA 1,24872
 LDC I,284
 CHK J,0,285
 IXA 15
 LCA 'TRANS.D.D      '
 LOC  1710
 MOV 15
 LDA 1,24872
 LDC I,285
 CHK J,0,285
 IXA 15
 LCA 'XOR.Q          '
 MOV 15
 RET P
L1 DEF         8
 SST P  INIT5233       3       0       0       0       0
 LOC     0
INIT5233 ENT P,3,L1  INIT5          1 1 1
 LDA 1,5056
 LDC I,0
 CHK J,0,285
 IXA 4
 LDC I,4095
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,1
 LOC    10
 CHK J,0,285
 IXA 4
 LDC I,4094
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,2
 CHK J,0,285
 IXA 4
 LDC I,4093
 LOC    20
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,3
 CHK J,0,285
 IXA 4
 LDC I,4092
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC    30
 LDC I,4
 CHK J,0,285
 IXA 4
 LDC I,1487
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,5
 CHK J,0,285
 IXA 4
 LOC    40
 LDC I,1488
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,6
 CHK J,0,285
 IXA 4
 LDC I,1489
 CHK I,0,4095
 STO I
 LOC    50
 LDA 1,5056
 LDC I,7
 CHK J,0,285
 IXA 4
 LDC I,1490
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,8
 CHK J,0,285
 LOC    60
 IXA 4
 LDC I,12
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,9
 CHK J,0,285
 IXA 4
 LDC I,16
 CHK I,0,4095
 LOC    70
 STO I
 LDA 1,5056
 LDC I,10
 CHK J,0,285
 IXA 4
 LDC I,1830
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,11
 LOC    80
 CHK J,0,285
 IXA 4
 LDC I,1831
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,12
 CHK J,0,285
 IXA 4
 LDC I,1666
 LOC    90
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,13
 CHK J,0,285
 IXA 4
 LDC I,736
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   100
 LDC I,14
 CHK J,0,285
 IXA 4
 LDC I,748
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,15
 CHK J,0,285
 IXA 4
 LOC   110
 LDC I,764
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,16
 CHK J,0,285
 IXA 4
 LDC I,780
 CHK I,0,4095
 STO I
 LOC   120
 LDA 1,5056
 LDC I,17
 CHK J,0,285
 IXA 4
 LDC I,1866
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,18
 CHK J,0,285
 LOC   130
 IXA 4
 LDC I,1878
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,19
 CHK J,0,285
 IXA 4
 LDC I,1870
 CHK I,0,4095
 LOC   140
 STO I
 LDA 1,5056
 LDC I,20
 CHK J,0,285
 IXA 4
 LDC I,1862
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,21
 LOC   150
 CHK J,0,285
 IXA 4
 LDC I,1882
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,22
 CHK J,0,285
 IXA 4
 LDC I,1874
 LOC   160
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,23
 CHK J,0,285
 IXA 4
 LDC I,1886
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   170
 LDC I,24
 CHK J,0,285
 IXA 4
 LDC I,1645
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,25
 CHK J,0,285
 IXA 4
 LOC   180
 LDC I,1646
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,26
 CHK J,0,285
 IXA 4
 LDC I,1647
 CHK I,0,4095
 STO I
 LOC   190
 LDA 1,5056
 LDC I,27
 CHK J,0,285
 IXA 4
 LDC I,1648
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,28
 CHK J,0,285
 LOC   200
 IXA 4
 LDC I,1653
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,29
 CHK J,0,285
 IXA 4
 LDC I,1654
 CHK I,0,4095
 LOC   210
 STO I
 LDA 1,5056
 LDC I,30
 CHK J,0,285
 IXA 4
 LDC I,1655
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,31
 LOC   220
 CHK J,0,285
 IXA 4
 LDC I,1656
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,32
 CHK J,0,285
 IXA 4
 LDC I,1657
 LOC   230
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,33
 CHK J,0,285
 IXA 4
 LDC I,1658
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   240
 LDC I,34
 CHK J,0,285
 IXA 4
 LDC I,1659
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,35
 CHK J,0,285
 IXA 4
 LOC   250
 LDC I,1660
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,36
 CHK J,0,285
 IXA 4
 LDC I,1661
 CHK I,0,4095
 STO I
 LOC   260
 LDA 1,5056
 LDC I,37
 CHK J,0,285
 IXA 4
 LDC I,1662
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,38
 CHK J,0,285
 LOC   270
 IXA 4
 LDC I,1663
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,39
 CHK J,0,285
 IXA 4
 LDC I,1664
 CHK I,0,4095
 LOC   280
 STO I
 LDA 1,5056
 LDC I,40
 CHK J,0,285
 IXA 4
 LDC I,1384
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,41
 LOC   290
 CHK J,0,285
 IXA 4
 LDC I,1433
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,42
 CHK J,0,285
 IXA 4
 LDC I,1434
 LOC   300
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,43
 CHK J,0,285
 IXA 4
 LDC I,1466
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   310
 LDC I,44
 CHK J,0,285
 IXA 4
 LDC I,1467
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,45
 CHK J,0,285
 IXA 4
 LOC   320
 LDC I,1468
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,46
 CHK J,0,285
 IXA 4
 LDC I,1469
 CHK I,0,4095
 STO I
 LOC   330
 LDA 1,5056
 LDC I,47
 CHK J,0,285
 IXA 4
 LDC I,412
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,48
 CHK J,0,285
 LOC   340
 IXA 4
 LDC I,416
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,49
 CHK J,0,285
 IXA 4
 LDC I,424
 CHK I,0,4095
 LOC   350
 STO I
 LDA 1,5056
 LDC I,50
 CHK J,0,285
 IXA 4
 LDC I,436
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,51
 LOC   360
 CHK J,0,285
 IXA 4
 LDC I,428
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,52
 CHK J,0,285
 IXA 4
 LDC I,440
 LOC   370
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,53
 CHK J,0,285
 IXA 4
 LDC I,448
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   380
 LDC I,54
 CHK J,0,285
 IXA 4
 LDC I,452
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,55
 CHK J,0,285
 IXA 4
 LOC   390
 LDC I,468
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,56
 CHK J,0,285
 IXA 4
 LDC I,480
 CHK I,0,4095
 STO I
 LOC   400
 LDA 1,5056
 LDC I,57
 CHK J,0,285
 IXA 4
 LDC I,472
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,58
 CHK J,0,285
 LOC   410
 IXA 4
 LDC I,484
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,59
 CHK J,0,285
 IXA 4
 LDC I,1479
 CHK I,0,4095
 LOC   420
 STO I
 LDA 1,5056
 LDC I,60
 CHK J,0,285
 IXA 4
 LDC I,1481
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,61
 LOC   430
 CHK J,0,285
 IXA 4
 LDC I,1376
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,62
 CHK J,0,285
 IXA 4
 LDC I,1380
 LOC   440
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,63
 CHK J,0,285
 IXA 4
 LDC I,1296
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   450
 LDC I,64
 CHK J,0,285
 IXA 4
 LDC I,1256
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,65
 CHK J,0,285
 IXA 4
 LOC   460
 LDC I,1350
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,66
 CHK J,0,285
 IXA 4
 LDC I,1639
 CHK I,0,4095
 STO I
 LOC   470
 LDA 1,5056
 LDC I,67
 CHK J,0,285
 IXA 4
 LDC I,1491
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,68
 CHK J,0,285
 LOC   480
 IXA 4
 LDC I,1492
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,69
 CHK J,0,285
 IXA 4
 LDC I,1495
 CHK I,0,4095
 LOC   490
 STO I
 LDA 1,5056
 LDC I,70
 CHK J,0,285
 IXA 4
 LDC I,1496
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,71
 LOC   500
 CHK J,0,285
 IXA 4
 LDC I,1493
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,72
 CHK J,0,285
 IXA 4
 LDC I,1497
 LOC   510
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,73
 CHK J,0,285
 IXA 4
 LDC I,1499
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   520
 LDC I,74
 CHK J,0,285
 IXA 4
 LDC I,1500
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,75
 CHK J,0,285
 IXA 4
 LOC   530
 LDC I,1501
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,76
 CHK J,0,285
 IXA 4
 LDC I,1494
 CHK I,0,4095
 STO I
 LOC   540
 LDA 1,5056
 LDC I,77
 CHK J,0,285
 IXA 4
 LDC I,1498
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,78
 CHK J,0,285
 LOC   550
 IXA 4
 LDC I,1502
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,79
 CHK J,0,285
 IXA 4
 LDC I,1503
 CHK I,0,4095
 LOC   560
 STO I
 LDA 1,5056
 LDC I,80
 CHK J,0,285
 IXA 4
 LDC I,1504
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,81
 LOC   570
 CHK J,0,285
 IXA 4
 LDC I,1505
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,82
 CHK J,0,285
 IXA 4
 LDC I,1506
 LOC   580
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,83
 CHK J,0,285
 IXA 4
 LDC I,1507
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   590
 LDC I,84
 CHK J,0,285
 IXA 4
 LDC I,1508
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,85
 CHK J,0,285
 IXA 4
 LOC   600
 LDC I,1509
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,86
 CHK J,0,285
 IXA 4
 LDC I,1510
 CHK I,0,4095
 STO I
 LOC   610
 LDA 1,5056
 LDC I,87
 CHK J,0,285
 IXA 4
 LDC I,1511
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,88
 CHK J,0,285
 LOC   620
 IXA 4
 LDC I,1512
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,89
 CHK J,0,285
 IXA 4
 LDC I,1513
 CHK I,0,4095
 LOC   630
 STO I
 LDA 1,5056
 LDC I,90
 CHK J,0,285
 IXA 4
 LDC I,1514
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,91
 LOC   640
 CHK J,0,285
 IXA 4
 LDC I,1515
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,92
 CHK J,0,285
 IXA 4
 LDC I,1516
 LOC   650
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,93
 CHK J,0,285
 IXA 4
 LDC I,1517
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   660
 LDC I,94
 CHK J,0,285
 IXA 4
 LDC I,1518
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,95
 CHK J,0,285
 IXA 4
 LOC   670
 LDC I,1519
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,96
 CHK J,0,285
 IXA 4
 LDC I,1520
 CHK I,0,4095
 STO I
 LOC   680
 LDA 1,5056
 LDC I,97
 CHK J,0,285
 IXA 4
 LDC I,1521
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,98
 CHK J,0,285
 LOC   690
 IXA 4
 LDC I,1522
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,99
 CHK J,0,285
 IXA 4
 LDC I,1523
 CHK I,0,4095
 LOC   700
 STO I
 LDA 1,5056
 LDC I,100
 CHK J,0,285
 IXA 4
 LDC I,1524
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,101
 LOC   710
 CHK J,0,285
 IXA 4
 LDC I,1525
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,102
 CHK J,0,285
 IXA 4
 LDC I,1526
 LOC   720
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,103
 CHK J,0,285
 IXA 4
 LDC I,1527
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   730
 LDC I,104
 CHK J,0,285
 IXA 4
 LDC I,1528
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,105
 CHK J,0,285
 IXA 4
 LOC   740
 LDC I,1529
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,106
 CHK J,0,285
 IXA 4
 LDC I,1530
 CHK I,0,4095
 STO I
 LOC   750
 LDA 1,5056
 LDC I,107
 CHK J,0,285
 IXA 4
 LDC I,1531
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,108
 CHK J,0,285
 LOC   760
 IXA 4
 LDC I,1532
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,109
 CHK J,0,285
 IXA 4
 LDC I,1533
 CHK I,0,4095
 LOC   770
 STO I
 LDA 1,5056
 LDC I,110
 CHK J,0,285
 IXA 4
 LDC I,1534
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,111
 LOC   780
 CHK J,0,285
 IXA 4
 LDC I,1535
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,112
 CHK J,0,285
 IXA 4
 LDC I,1536
 LOC   790
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,113
 CHK J,0,285
 IXA 4
 LDC I,1537
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   800
 LDC I,114
 CHK J,0,285
 IXA 4
 LDC I,1538
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,115
 CHK J,0,285
 IXA 4
 LOC   810
 LDC I,1539
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,116
 CHK J,0,285
 IXA 4
 LDC I,1540
 CHK I,0,4095
 STO I
 LOC   820
 LDA 1,5056
 LDC I,117
 CHK J,0,285
 IXA 4
 LDC I,1541
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,118
 CHK J,0,285
 LOC   830
 IXA 4
 LDC I,1542
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,119
 CHK J,0,285
 IXA 4
 LDC I,1543
 CHK I,0,4095
 LOC   840
 STO I
 LDA 1,5056
 LDC I,120
 CHK J,0,285
 IXA 4
 LDC I,1544
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,121
 LOC   850
 CHK J,0,285
 IXA 4
 LDC I,1545
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,122
 CHK J,0,285
 IXA 4
 LDC I,1546
 LOC   860
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,123
 CHK J,0,285
 IXA 4
 LDC I,1547
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   870
 LDC I,124
 CHK J,0,285
 IXA 4
 LDC I,1548
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,125
 CHK J,0,285
 IXA 4
 LOC   880
 LDC I,1549
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,126
 CHK J,0,285
 IXA 4
 LDC I,1550
 CHK I,0,4095
 STO I
 LOC   890
 LDA 1,5056
 LDC I,127
 CHK J,0,285
 IXA 4
 LDC I,1551
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,128
 CHK J,0,285
 LOC   900
 IXA 4
 LDC I,1552
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,129
 CHK J,0,285
 IXA 4
 LDC I,1553
 CHK I,0,4095
 LOC   910
 STO I
 LDA 1,5056
 LDC I,130
 CHK J,0,285
 IXA 4
 LDC I,1554
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,131
 LOC   920
 CHK J,0,285
 IXA 4
 LDC I,1555
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,132
 CHK J,0,285
 IXA 4
 LDC I,1556
 LOC   930
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,133
 CHK J,0,285
 IXA 4
 LDC I,1557
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC   940
 LDC I,134
 CHK J,0,285
 IXA 4
 LDC I,1558
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,135
 CHK J,0,285
 IXA 4
 LOC   950
 LDC I,1559
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,136
 CHK J,0,285
 IXA 4
 LDC I,1560
 CHK I,0,4095
 STO I
 LOC   960
 LDA 1,5056
 LDC I,137
 CHK J,0,285
 IXA 4
 LDC I,1561
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,138
 CHK J,0,285
 LOC   970
 IXA 4
 LDC I,1562
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,139
 CHK J,0,285
 IXA 4
 LDC I,1563
 CHK I,0,4095
 LOC   980
 STO I
 LDA 1,5056
 LDC I,140
 CHK J,0,285
 IXA 4
 LDC I,1564
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,141
 LOC   990
 CHK J,0,285
 IXA 4
 LDC I,1565
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,142
 CHK J,0,285
 IXA 4
 LDC I,1566
 LOC  1000
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,143
 CHK J,0,285
 IXA 4
 LDC I,1567
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1010
 LDC I,144
 CHK J,0,285
 IXA 4
 LDC I,1568
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,145
 CHK J,0,285
 IXA 4
 LOC  1020
 LDC I,1569
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,146
 CHK J,0,285
 IXA 4
 LDC I,1570
 CHK I,0,4095
 STO I
 LOC  1030
 LDA 1,5056
 LDC I,147
 CHK J,0,285
 IXA 4
 LDC I,108
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,148
 CHK J,0,285
 LOC  1040
 IXA 4
 LDC I,112
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,149
 CHK J,0,285
 IXA 4
 LDC I,1483
 CHK I,0,4095
 LOC  1050
 STO I
 LDA 1,5056
 LDC I,150
 CHK J,0,285
 IXA 4
 LDC I,1484
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,151
 LOC  1060
 CHK J,0,285
 IXA 4
 LDC I,1485
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,152
 CHK J,0,285
 IXA 4
 LDC I,1486
 LOC  1070
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,153
 CHK J,0,285
 IXA 4
 LDC I,1939
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1080
 LDC I,154
 CHK J,0,285
 IXA 4
 LDC I,784
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,155
 CHK J,0,285
 IXA 4
 LOC  1090
 LDC I,796
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,156
 CHK J,0,285
 IXA 4
 LDC I,136
 CHK I,0,4095
 STO I
 LOC  1100
 LDA 1,5056
 LDC I,157
 CHK J,0,285
 IXA 4
 LDC I,152
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,158
 CHK J,0,285
 LOC  1110
 IXA 4
 LDC I,140
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,159
 CHK J,0,285
 IXA 4
 LDC I,156
 CHK I,0,4095
 LOC  1120
 STO I
 LDA 1,5056
 LDC I,160
 CHK J,0,285
 IXA 4
 LDC I,248
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,161
 LOC  1130
 CHK J,0,285
 IXA 4
 LDC I,264
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,162
 CHK J,0,285
 IXA 4
 LDC I,252
 LOC  1140
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,163
 CHK J,0,285
 IXA 4
 LDC I,268
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1150
 LDC I,164
 CHK J,0,285
 IXA 4
 LDC I,1698
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,165
 CHK J,0,285
 IXA 4
 LOC  1160
 LDC I,908
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,166
 CHK J,0,285
 IXA 4
 LDC I,940
 CHK I,0,4095
 STO I
 LOC  1170
 LDA 1,5056
 LDC I,167
 CHK J,0,285
 IXA 4
 LDC I,1016
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,168
 CHK J,0,285
 LOC  1180
 IXA 4
 LDC I,1048
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,169
 CHK J,0,285
 IXA 4
 LDC I,2112
 CHK I,0,4095
 LOC  1190
 STO I
 LDA 1,5056
 LDC I,170
 CHK J,0,285
 IXA 4
 LDC I,2304
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,171
 LOC  1200
 CHK J,0,285
 IXA 4
 LDC I,2176
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,172
 CHK J,0,285
 IXA 4
 LDC I,2048
 LOC  1210
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,173
 CHK J,0,285
 IXA 4
 LDC I,2368
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1220
 LDC I,174
 CHK J,0,285
 IXA 4
 LDC I,2240
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,175
 CHK J,0,285
 IXA 4
 LOC  1230
 LDC I,2128
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,176
 CHK J,0,285
 IXA 4
 LDC I,2320
 CHK I,0,4095
 STO I
 LOC  1240
 LDA 1,5056
 LDC I,177
 CHK J,0,285
 IXA 4
 LDC I,2192
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,178
 CHK J,0,285
 LOC  1250
 IXA 4
 LDC I,2064
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,179
 CHK J,0,285
 IXA 4
 LDC I,2384
 CHK I,0,4095
 LOC  1260
 STO I
 LDA 1,5056
 LDC I,180
 CHK J,0,285
 IXA 4
 LDC I,2256
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,181
 LOC  1270
 CHK J,0,285
 IXA 4
 LDC I,2144
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,182
 CHK J,0,285
 IXA 4
 LDC I,2336
 LOC  1280
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,183
 CHK J,0,285
 IXA 4
 LDC I,2208
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1290
 LDC I,184
 CHK J,0,285
 IXA 4
 LDC I,2080
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,185
 CHK J,0,285
 IXA 4
 LOC  1300
 LDC I,2400
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,186
 CHK J,0,285
 IXA 4
 LDC I,2272
 CHK I,0,4095
 STO I
 LOC  1310
 LDA 1,5056
 LDC I,187
 CHK J,0,285
 IXA 4
 LDC I,2160
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,188
 CHK J,0,285
 LOC  1320
 IXA 4
 LDC I,2352
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,189
 CHK J,0,285
 IXA 4
 LDC I,2224
 CHK I,0,4095
 LOC  1330
 STO I
 LDA 1,5056
 LDC I,190
 CHK J,0,285
 IXA 4
 LDC I,2096
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,191
 LOC  1340
 CHK J,0,285
 IXA 4
 LDC I,2416
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,192
 CHK J,0,285
 IXA 4
 LDC I,2288
 LOC  1350
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,193
 CHK J,0,285
 IXA 4
 LDC I,2432
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1360
 LDC I,194
 CHK J,0,285
 IXA 4
 LDC I,2448
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,195
 CHK J,0,285
 IXA 4
 LOC  1370
 LDC I,2464
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,196
 CHK J,0,285
 IXA 4
 LDC I,2480
 CHK I,0,4095
 STO I
 LOC  1380
 LDA 1,5056
 LDC I,197
 CHK J,0,285
 IXA 4
 LDC I,2624
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,198
 CHK J,0,285
 LOC  1390
 IXA 4
 LDC I,2640
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,199
 CHK J,0,285
 IXA 4
 LDC I,2656
 CHK I,0,4095
 LOC  1400
 STO I
 LDA 1,5056
 LDC I,200
 CHK J,0,285
 IXA 4
 LDC I,2672
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,201
 LOC  1410
 CHK J,0,285
 IXA 4
 LDC I,1575
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,202
 CHK J,0,285
 IXA 4
 LDC I,1576
 LOC  1420
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,203
 CHK J,0,285
 IXA 4
 LDC I,1577
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1430
 LDC I,204
 CHK J,0,285
 IXA 4
 LDC I,1578
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,205
 CHK J,0,285
 IXA 4
 LOC  1440
 LDC I,1579
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,206
 CHK J,0,285
 IXA 4
 LDC I,1580
 CHK I,0,4095
 STO I
 LOC  1450
 LDA 1,5056
 LDC I,207
 CHK J,0,285
 IXA 4
 LDC I,1581
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,208
 CHK J,0,285
 LOC  1460
 IXA 4
 LDC I,1582
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,209
 CHK J,0,285
 IXA 4
 LDC I,1583
 CHK I,0,4095
 LOC  1470
 STO I
 LDA 1,5056
 LDC I,210
 CHK J,0,285
 IXA 4
 LDC I,1584
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,211
 LOC  1480
 CHK J,0,285
 IXA 4
 LDC I,1585
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,212
 CHK J,0,285
 IXA 4
 LDC I,1586
 LOC  1490
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,213
 CHK J,0,285
 IXA 4
 LDC I,1587
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1500
 LDC I,214
 CHK J,0,285
 IXA 4
 LDC I,1588
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,215
 CHK J,0,285
 IXA 4
 LOC  1510
 LDC I,1589
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,216
 CHK J,0,285
 IXA 4
 LDC I,1590
 CHK I,0,4095
 STO I
 LOC  1520
 LDA 1,5056
 LDC I,217
 CHK J,0,285
 IXA 4
 LDC I,1591
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,218
 CHK J,0,285
 LOC  1530
 IXA 4
 LDC I,1592
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,219
 CHK J,0,285
 IXA 4
 LDC I,1593
 CHK I,0,4095
 LOC  1540
 STO I
 LDA 1,5056
 LDC I,220
 CHK J,0,285
 IXA 4
 LDC I,1594
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,221
 LOC  1550
 CHK J,0,285
 IXA 4
 LDC I,1595
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,222
 CHK J,0,285
 IXA 4
 LDC I,1596
 LOC  1560
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,223
 CHK J,0,285
 IXA 4
 LDC I,1597
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1570
 LDC I,224
 CHK J,0,285
 IXA 4
 LDC I,1598
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,225
 CHK J,0,285
 IXA 4
 LOC  1580
 LDC I,1599
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,226
 CHK J,0,285
 IXA 4
 LDC I,1600
 CHK I,0,4095
 STO I
 LOC  1590
 LDA 1,5056
 LDC I,227
 CHK J,0,285
 IXA 4
 LDC I,1601
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,228
 CHK J,0,285
 LOC  1600
 IXA 4
 LDC I,1602
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,229
 CHK J,0,285
 IXA 4
 LDC I,1603
 CHK I,0,4095
 LOC  1610
 STO I
 LDA 1,5056
 LDC I,230
 CHK J,0,285
 IXA 4
 LDC I,1604
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,231
 LOC  1620
 CHK J,0,285
 IXA 4
 LDC I,1605
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,232
 CHK J,0,285
 IXA 4
 LDC I,1606
 LOC  1630
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,233
 CHK J,0,285
 IXA 4
 LDC I,1607
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1640
 LDC I,234
 CHK J,0,285
 IXA 4
 LDC I,1608
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,235
 CHK J,0,285
 IXA 4
 LOC  1650
 LDC I,1609
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,236
 CHK J,0,285
 IXA 4
 LDC I,1610
 CHK I,0,4095
 STO I
 LOC  1660
 LDA 1,5056
 LDC I,237
 CHK J,0,285
 IXA 4
 LDC I,1611
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,238
 CHK J,0,285
 LOC  1670
 IXA 4
 LDC I,1612
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,239
 CHK J,0,285
 IXA 4
 LDC I,1613
 CHK I,0,4095
 LOC  1680
 STO I
 LDA 1,5056
 LDC I,240
 CHK J,0,285
 IXA 4
 LDC I,1614
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,241
 LOC  1690
 CHK J,0,285
 IXA 4
 LDC I,1615
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,242
 CHK J,0,285
 IXA 4
 LDC I,1616
 LOC  1700
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,243
 CHK J,0,285
 IXA 4
 LDC I,1617
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1710
 LDC I,244
 CHK J,0,285
 IXA 4
 LDC I,1618
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,245
 CHK J,0,285
 IXA 4
 LOC  1720
 LDC I,1619
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,246
 CHK J,0,285
 IXA 4
 LDC I,1620
 CHK I,0,4095
 STO I
 LOC  1730
 LDA 1,5056
 LDC I,247
 CHK J,0,285
 IXA 4
 LDC I,1621
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,248
 CHK J,0,285
 LOC  1740
 IXA 4
 LDC I,1622
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,249
 CHK J,0,285
 IXA 4
 LDC I,1623
 CHK I,0,4095
 LOC  1750
 STO I
 LDA 1,5056
 LDC I,250
 CHK J,0,285
 IXA 4
 LDC I,1624
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,251
 LOC  1760
 CHK J,0,285
 IXA 4
 LDC I,1625
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,252
 CHK J,0,285
 IXA 4
 LDC I,1626
 LOC  1770
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,253
 CHK J,0,285
 IXA 4
 LDC I,1627
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1780
 LDC I,254
 CHK J,0,285
 IXA 4
 LDC I,1628
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,255
 CHK J,0,285
 IXA 4
 LOC  1790
 LDC I,1629
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,256
 CHK J,0,285
 IXA 4
 LDC I,1630
 CHK I,0,4095
 STO I
 LOC  1800
 LDA 1,5056
 LDC I,257
 CHK J,0,285
 IXA 4
 LDC I,1631
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,258
 CHK J,0,285
 LOC  1810
 IXA 4
 LDC I,1632
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,259
 CHK J,0,285
 IXA 4
 LDC I,1633
 CHK I,0,4095
 LOC  1820
 STO I
 LDA 1,5056
 LDC I,260
 CHK J,0,285
 IXA 4
 LDC I,1634
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,261
 LOC  1830
 CHK J,0,285
 IXA 4
 LDC I,1635
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,262
 CHK J,0,285
 IXA 4
 LDC I,1636
 LOC  1840
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,263
 CHK J,0,285
 IXA 4
 LDC I,1637
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1850
 LDC I,264
 CHK J,0,285
 IXA 4
 LDC I,1638
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,265
 CHK J,0,285
 IXA 4
 LOC  1860
 LDC I,44
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,266
 CHK J,0,285
 IXA 4
 LDC I,60
 CHK I,0,4095
 STO I
 LOC  1870
 LDA 1,5056
 LDC I,267
 CHK J,0,285
 IXA 4
 LDC I,48
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,268
 CHK J,0,285
 LOC  1880
 IXA 4
 LDC I,64
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,269
 CHK J,0,285
 IXA 4
 LDC I,1386
 CHK I,0,4095
 LOC  1890
 STO I
 LDA 1,5056
 LDC I,270
 CHK J,0,285
 IXA 4
 LDC I,1387
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,271
 LOC  1900
 CHK J,0,285
 IXA 4
 LDC I,1390
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,272
 CHK J,0,285
 IXA 4
 LDC I,1391
 LOC  1910
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,273
 CHK J,0,285
 IXA 4
 LDC I,1388
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1920
 LDC I,274
 CHK J,0,285
 IXA 4
 LDC I,1392
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,275
 CHK J,0,285
 IXA 4
 LOC  1930
 LDC I,1394
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,276
 CHK J,0,285
 IXA 4
 LDC I,1395
 CHK I,0,4095
 STO I
 LOC  1940
 LDA 1,5056
 LDC I,277
 CHK J,0,285
 IXA 4
 LDC I,1396
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,278
 CHK J,0,285
 LOC  1950
 IXA 4
 LDC I,1389
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,279
 CHK J,0,285
 IXA 4
 LDC I,1393
 CHK I,0,4095
 LOC  1960
 STO I
 LDA 1,5056
 LDC I,280
 CHK J,0,285
 IXA 4
 LDC I,1397
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,281
 LOC  1970
 CHK J,0,285
 IXA 4
 LDC I,1398
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,282
 CHK J,0,285
 IXA 4
 LDC I,1399
 LOC  1980
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,283
 CHK J,0,285
 IXA 4
 LDC I,1400
 CHK I,0,4095
 STO I
 LDA 1,5056
 LOC  1990
 LDC I,284
 CHK J,0,285
 IXA 4
 LDC I,1401
 CHK I,0,4095
 STO I
 LDA 1,5056
 LDC I,285
 CHK J,0,285
 IXA 4
 LOC  2000
 LDC I,864
 CHK I,0,4095
 STO I
 RET P
L1 DEF         8
 SST P  INIT6234       3       0       0       0       0
 LOC     0
INIT6234 ENT P,3,L1  INIT6          1 1 1
 LDA 1,30596
 LDC I,169
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,170
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC    10
 LDC I,170
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,169
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,171
 CHK J,169,200
 LOC    20
 DEC I,169
 IXA 4
 LDC I,174
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,174
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC    30
 LDC I,171
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,172
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,173
 CHK I,169,200
 LOC    40
 STO I
 LDA 1,30596
 LDC I,173
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,172
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC    50
 LDC I,175
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,176
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,176
 CHK J,169,200
 LOC    60
 DEC I,169
 IXA 4
 LDC I,175
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,177
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC    70
 LDC I,180
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,180
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,177
 CHK I,169,200
 LOC    80
 STO I
 LDA 1,30596
 LDC I,178
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,179
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC    90
 LDC I,179
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,178
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,181
 CHK J,169,200
 LOC   100
 DEC I,169
 IXA 4
 LDC I,182
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,182
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC   110
 LDC I,181
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,183
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,186
 CHK I,169,200
 LOC   120
 STO I
 LDA 1,30596
 LDC I,186
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,183
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC   130
 LDC I,184
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,185
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,185
 CHK J,169,200
 LOC   140
 DEC I,169
 IXA 4
 LDC I,184
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,187
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC   150
 LDC I,188
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,188
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,187
 CHK I,169,200
 LOC   160
 STO I
 LDA 1,30596
 LDC I,189
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,192
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC   170
 LDC I,192
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,189
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,190
 CHK J,169,200
 LOC   180
 DEC I,169
 IXA 4
 LDC I,191
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,191
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC   190
 LDC I,190
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,193
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,197
 CHK I,169,200
 LOC   200
 STO I
 LDA 1,30596
 LDC I,194
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,198
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC   210
 LDC I,195
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,199
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,196
 CHK J,169,200
 LOC   220
 DEC I,169
 IXA 4
 LDC I,200
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,197
 CHK J,169,200
 DEC I,169
 IXA 4
 LOC   230
 LDC I,193
 CHK I,169,200
 STO I
 LDA 1,30596
 LDC I,198
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,194
 CHK I,169,200
 LOC   240
 STO I
 LDA 1,30596
 LDC I,199
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,195
 CHK I,169,200
 STO I
 LDA 1,30596
 LOC   250
 LDC I,200
 CHK J,169,200
 DEC I,169
 IXA 4
 LDC I,196
 CHK I,169,200
 STO I
 LOD I,1,4332
 CHK I,0,285
 STR I,2,28
 LOC   260
 LOD I,1,4328
 CHK I,0,285
 ORD
 STR I,3,8
 LOD I,2,28
 ORD
 LOD I,3,8
 LEQ I
 FJP L3
L2 LAB
 LDA 1,23728
 LOC   270
 LOD I,2,28
 CHK J,0,285
 IXA 4
 IND I,0
 ORD
 CHK I,0,4
 XJP L4
L8 LAB
 LDC I,1
 STR I,2,8
 UJP L7
L9 LAB
 LOC   280
 LDA 1,4864
 LDC I,2
 CHK J,0,34
 IXA 4
 IND I,0
 STR I,2,8
 UJP L7
L10 LAB
 LDA 1,4864
 LDC I,1
 CHK J,0,34
 LOC   290
 IXA 4
 IND I,0
 STR I,2,8
 UJP L7
L11 LAB
 LDA 1,4864
 LDC I,4
 CHK J,0,34
 IXA 4
 IND I,0
 STR I,2,8
 LOC   300
 UJP L7
L4 DEF         0
L5 DEF         4
L6 LAB
 UJP L8
 UJP L9
 UJP L10
 UJP L8
 UJP L11
L7 LAB
 LDA 1,5056
 LOD I,2,28
 CHK J,0,285
 IXA 4
 LOC   310
 IND I,0
 LOD I,2,8
 MOD
 LDC I,0
 EQU I
 NOT
 FJP L13
 MST 2,4,4
 LCA 'INITIALIZ001'
 PAR A
 LOC   320
 CUP P,2,ASSER003
L13 LAB
 LDA 1,5056
 LOD I,2,28
 CHK J,0,285
 IXA 4
 IND I,0
 STR I,2,12
 LDA 1,5056
 LOD I,2,28
 CHK J,0,285
 LOC   330
 IXA 4
 IND I,0
 LOD I,2,8
 ADI
 LDC I,1
 SBI
 STR I,3,12
 LOD I,2,12
 LOD I,3,12
 LEQ I
 LOC   340
 FJP L15
L14 LAB
 LDA 1,6200
 LOD I,2,12
 CHK J,0,4095
 IXA 4
 LOD I,2,28
 CHK I,0,285
 STO I
 LOD I,2,12
 LOD I,3,12
 LOC   350
 NEQ I
 FJP L15
 LOD I,2,12
 INC I,1
 STR I,2,12
 UJP L14
L15 LAB
 LOD I,2,28
 ORD
 LOD I,3,8
 NEQ I
 LOC   360
 FJP L3
 LOD I,2,28
 INC I,1
 CHK I,0,285
 STR I,2,28
 UJP L2
L3 LAB
 LOD I,1,4332
 CHK I,0,285
 STR I,2,28
 LOD I,1,4328
 LOC   370
 CHK I,0,285
 ORD
 STR I,3,8
 LOD I,2,28
 ORD
 LOD I,3,8
 LEQ I
 FJP L17
L16 LAB
 LDA 1,40368
 LOD I,2,28
 LOC   380
 CHK J,0,285
 IXA 4
 LDC I,0
 STO I
 LOD I,2,28
 ORD
 LOD I,3,8
 NEQ I
 FJP L17
 LOD I,2,28
 LOC   390
 INC I,1
 CHK I,0,285
 STR I,2,28
 UJP L16
L17 LAB
 LDC I,0
 STR I,1,41520
 LDC I,0
 STR I,1,41528
 LDC I,0
 STR I,1,41532
 LOC   400
 LDC I,0
 STR I,1,41536
 LDC I,0
 STR I,1,41540
 LDC I,0
 STR I,1,41544
 LDC B,0
 STR B,1,285
 LDC B,0
 STR B,1,284
 LOC   410
 LDC B,0
 STR B,1,282
 LDC B,0
 STR B,1,281
 LDC B,0
 STR B,1,280
 LDC B,0
 STR B,1,283
 LDA 1,316
 LDA 1,4724
 LOC   420
 MOV 12
 LDC N
 CHK A,-1,0
 STR A,1,328
 LDC I,1
 LDC I,1
 SBI
 CHK I,-1,30
 STR I,1,39472
 LDC I,0
 LOC   430
 CHK I,0,15
 STR I,1,39924
 LDC B,0
 STR B,1,305
 LDC B,0
 STR B,1,304
 LDC I,0
 CHK I,0,34359738367
 STR I,1,40364
 LDC I,0
 LOC   440
 CHK I,0,8
 STR I,1,5028
 RET P
L1 DEF        16
 SST P  INIT7235       3       0       0       4       0
 LOC     0
INIT7235 ENT P,3,L1  INIT7          1 1 1
 LOD I,1,4332
 CHK I,0,285
 STR I,3,8
 LOD I,1,4328
 CHK I,0,285
 ORD
 STR I,3,12
 LOD I,3,8
 ORD
 LOC    10
 LOD I,3,12
 LEQ I
 FJP L3
L2 LAB
 LDA 1,30308
 LOD I,3,8
 CHK J,0,285
 IXA 1
 LDC B,0
 STO B
 LOD I,3,8
 LOC    20
 ORD
 LOD I,3,12
 NEQ I
 FJP L3
 LOD I,3,8
 INC I,1
 CHK I,0,285
 STR I,3,8
 UJP L2
L3 LAB
 LDA 1,30308
 LOC    30
 LDC I,4
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,5
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC    40
 STO B
 LDA 1,30308
 LDC I,6
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,7
 CHK J,0,285
 LOC    50
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,8
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC    60
 LDC I,9
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,13
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC    70
 STO B
 LDA 1,30308
 LDC I,14
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,15
 CHK J,0,285
 LOC    80
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,16
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC    90
 LDC I,40
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,41
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   100
 STO B
 LDA 1,30308
 LDC I,42
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,43
 CHK J,0,285
 LOC   110
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,44
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   120
 LDC I,45
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,46
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   130
 STO B
 LDA 1,30308
 LDC I,47
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,48
 CHK J,0,285
 LOC   140
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,49
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   150
 LDC I,50
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,51
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   160
 STO B
 LDA 1,30308
 LDC I,52
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,53
 CHK J,0,285
 LOC   170
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,54
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   180
 LDC I,55
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,56
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   190
 STO B
 LDA 1,30308
 LDC I,57
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,58
 CHK J,0,285
 LOC   200
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,59
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   210
 LDC I,60
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,62
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   220
 STO B
 LDA 1,30308
 LDC I,66
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,67
 CHK J,0,285
 LOC   230
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,68
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   240
 LDC I,69
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,70
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   250
 STO B
 LDA 1,30308
 LDC I,71
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,72
 CHK J,0,285
 LOC   260
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,73
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   270
 LDC I,74
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,75
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   280
 STO B
 LDA 1,30308
 LDC I,76
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,77
 CHK J,0,285
 LOC   290
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,78
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   300
 LDC I,79
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,80
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   310
 STO B
 LDA 1,30308
 LDC I,81
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,82
 CHK J,0,285
 LOC   320
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,147
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   330
 LDC I,148
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,149
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   340
 STO B
 LDA 1,30308
 LDC I,150
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,151
 CHK J,0,285
 LOC   350
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,152
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   360
 LDC I,154
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,155
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   370
 STO B
 LDA 1,30308
 LDC I,156
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,157
 CHK J,0,285
 LOC   380
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,158
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   390
 LDC I,159
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,160
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   400
 STO B
 LDA 1,30308
 LDC I,161
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,162
 CHK J,0,285
 LOC   410
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,163
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   420
 LDC I,165
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,166
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   430
 STO B
 LDA 1,30308
 LDC I,167
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,168
 CHK J,0,285
 LOC   440
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,265
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   450
 LDC I,266
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,267
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   460
 STO B
 LDA 1,30308
 LDC I,268
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,269
 CHK J,0,285
 LOC   470
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,270
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   480
 LDC I,271
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,272
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   490
 STO B
 LDA 1,30308
 LDC I,273
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,274
 CHK J,0,285
 LOC   500
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,275
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   510
 LDC I,276
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,277
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   520
 STO B
 LDA 1,30308
 LDC I,278
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,279
 CHK J,0,285
 LOC   530
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,280
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LOC   540
 LDC I,281
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,282
 CHK J,0,285
 IXA 1
 LDC B,1
 LOC   550
 STO B
 LDA 1,30308
 LDC I,283
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,284
 CHK J,0,285
 LOC   560
 IXA 1
 LDC B,1
 STO B
 LDA 1,30308
 LDC I,285
 CHK J,0,285
 IXA 1
 LDC B,1
 STO B
 LOD I,1,4332
 LOC   570
 CHK I,0,285
 STR I,3,8
 LOD I,1,4328
 CHK I,0,285
 ORD
 STR I,3,12
 LOD I,3,8
 ORD
 LOD I,3,12
 LEQ I
 LOC   580
 FJP L5
L4 LAB
 LDA 1,29164
 LOD I,3,8
 CHK J,0,285
 IXA 4
 LDC I,0
 CHK I,0,4
 STO I
 LOD I,3,8
 ORD
 LOC   590
 LOD I,3,12
 NEQ I
 FJP L5
 LOD I,3,8
 INC I,1
 CHK I,0,285
 STR I,3,8
 UJP L4
L5 LAB
 LDA 1,29164
 LDC I,4
 LOC   600
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,5
 CHK J,0,285
 IXA 4
 LDC I,2
 LOC   610
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,6
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   620
 LDC I,7
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,8
 CHK J,0,285
 IXA 4
 LOC   630
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,9
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC   640
 LDA 1,29164
 LDC I,13
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,14
 CHK J,0,285
 LOC   650
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,15
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC   660
 STO I
 LDA 1,29164
 LDC I,16
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,40
 LOC   670
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,41
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   680
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,42
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   690
 LDC I,43
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,44
 CHK J,0,285
 IXA 4
 LOC   700
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,45
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   710
 LDA 1,29164
 LDC I,46
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,47
 CHK J,0,285
 LOC   720
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,48
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC   730
 STO I
 LDA 1,29164
 LDC I,49
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,50
 LOC   740
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,51
 CHK J,0,285
 IXA 4
 LDC I,4
 LOC   750
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,52
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   760
 LDC I,53
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,54
 CHK J,0,285
 IXA 4
 LOC   770
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,55
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LOC   780
 LDA 1,29164
 LDC I,56
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,57
 CHK J,0,285
 LOC   790
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,58
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC   800
 STO I
 LDA 1,29164
 LDC I,59
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,60
 LOC   810
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,62
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   820
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,66
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   830
 LDC I,67
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,68
 CHK J,0,285
 IXA 4
 LOC   840
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,69
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LOC   850
 LDA 1,29164
 LDC I,70
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,71
 CHK J,0,285
 LOC   860
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,72
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 LOC   870
 STO I
 LDA 1,29164
 LDC I,73
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,74
 LOC   880
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,75
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC   890
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,76
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   900
 LDC I,77
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,78
 CHK J,0,285
 IXA 4
 LOC   910
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,79
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC   920
 LDA 1,29164
 LDC I,80
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,81
 CHK J,0,285
 LOC   930
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,82
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC   940
 STO I
 LDA 1,29164
 LDC I,147
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,148
 LOC   950
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,149
 CHK J,0,285
 IXA 4
 LDC I,1
 LOC   960
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,150
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC   970
 LDC I,151
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,152
 CHK J,0,285
 IXA 4
 LOC   980
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,154
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LOC   990
 LDA 1,29164
 LDC I,155
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,156
 CHK J,0,285
 LOC  1000
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,157
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1010
 STO I
 LDA 1,29164
 LDC I,158
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,159
 LOC  1020
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,160
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1030
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,161
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC  1040
 LDC I,162
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,163
 CHK J,0,285
 IXA 4
 LOC  1050
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,165
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC  1060
 LDA 1,29164
 LDC I,166
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,167
 CHK J,0,285
 LOC  1070
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,168
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 LOC  1080
 STO I
 LDA 1,29164
 LDC I,265
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,266
 LOC  1090
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,267
 CHK J,0,285
 IXA 4
 LDC I,4
 LOC  1100
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,268
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC  1110
 LDC I,269
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,270
 CHK J,0,285
 IXA 4
 LOC  1120
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,271
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LOC  1130
 LDA 1,29164
 LDC I,272
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,273
 CHK J,0,285
 LOC  1140
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,274
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 LOC  1150
 STO I
 LDA 1,29164
 LDC I,275
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,276
 LOC  1160
 CHK J,0,285
 IXA 4
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,277
 CHK J,0,285
 IXA 4
 LDC I,3
 LOC  1170
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,278
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 LDA 1,29164
 LOC  1180
 LDC I,279
 CHK J,0,285
 IXA 4
 LDC I,2
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,280
 CHK J,0,285
 IXA 4
 LOC  1190
 LDC I,3
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,281
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LOC  1200
 LDA 1,29164
 LDC I,282
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,283
 CHK J,0,285
 LOC  1210
 IXA 4
 LDC I,4
 CHK I,0,4
 STO I
 LDA 1,29164
 LDC I,284
 CHK J,0,285
 IXA 4
 LDC I,4
 CHK I,0,4
 LOC  1220
 STO I
 LDA 1,29164
 LDC I,285
 CHK J,0,285
 IXA 4
 LDC I,1
 CHK I,0,4
 STO I
 RET P
L1 DEF        16
 LOC     0
INITI226 ENT P,2,L1  INITIALIZE     1 1 1
 MST 3,0,0
 CUP P,0,INIT1229
 MST 3,0,0
 CUP P,0,INIT2230
 MST 3,0,0
 CUP P,0,INIT3231
 MST 3,0,0
 CUP P,0,INIT4232
 MST 3,0,0
 LOC    10
 CUP P,0,INIT5233
 MST 3,0,0
 CUP P,0,INIT6234
 MST 3,0,0
 CUP P,0,INIT7235
 RET P
L1 DEF        32
 LOC     0
$MAINBLK ENT P,1,L3  $MAINBLK       1 1 1
 LDA 1,15
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  REW
 CSP  EIO
 LDA 1,12
 LOC    10
 CSP  SIO
 CSP  RES
 CSP  EIO
 LDC I,0
 STR I,1,308
 MST 2,0,0
 CUP P,0,INITI226
 LDC I,1
 CSP  CLK
 STR I,1,40360
L4 LAB
 LOC    20
 LOD A,1,328
 CHK A,-1,0
 STR A,1,288
 LOD I,1,39472
 CHK I,-1,30
 STR I,1,292
 LOD I,1,39924
 CHK I,0,15
 STR I,1,296
 MST 2,0,0
 LOC    30
 CUP P,0,READN220
 LOD B,1,285
 FJP L5
 MST 2,0,0
 CUP P,0,PRINT015
L5 LAB
 MST 2,0,0
 CUP P,0,ASMNX209
 LOD B,1,284
 LOD A,1,288
 LOD A,1,328
 LOC    40
 NEQ A
 AND
 FJP L6
 LDA 1,13
 CSP  SIO
 LCA '      INSTRUCTION(S) EMITTED:'
 LDC I,29
 LDC I,29
 CSP  WRS
 CSP  WLN
 LOC    50
 CSP  EIO
 LOD A,1,288
 LDC N
 EQU A
 FJP L7
 LOD A,1,324
 CHK A,-1,0
 STR A,1,288
L7 LAB
L8 LAB
 LOD A,1,288
 LDC N
 LOC    60
 NEQ A
 FJP L9
 LDC I,0
 STR I,1,300
 MST 2,8,8
 LDA 1,300
 PAR A
 LOD A,1,288
 CHK A,-1,0
 PAR A
 LOC    70
 CUP P,4,DISAS007
 MST 2,4,4
 LOD A,1,288
 CHK A,-1,0
 PAR A
 CUP A,2,NEXT$043
 CHK A,-1,0
 STR A,1,288
 UJP L8
L9 LAB
L6 LAB
 LOD B,1,282
 LOC    80
 FJP L10
 LOD I,1,292
 LOD I,1,39472
 LES I
 FJP L11
 LDA 1,13
 CSP  SIO
 LCA '      STACK PUSHED. NEW TOP IS '
 LDC I,31
 LDC I,31
 LOC    90
 CSP  WRS
 LOD I,1,39472
 MST 2,4,4
 LOD I,1,39472
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  WLN
 CSP  EIO
 UJP L12
L11 LAB
 LOC   100
 LOD I,1,292
 LOD I,1,39472
 GRT I
 FJP L13
 LDA 1,13
 CSP  SIO
 LCA '      STACK POPPED.  NEW TOP IS '
 LDC I,32
 LDC I,32
 CSP  WRS
 LOC   110
 LOD I,1,39472
 MST 2,4,4
 LOD I,1,39472
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 CSP  WLN
 CSP  EIO
 UJP L14
L13 LAB
 LOD I,1,39472
 LOC   120
 LDC I,1
 GEQ I
 FJP L15
 LDA 1,13
 CSP  SIO
 LCA '      STACK TOP IS '
 LDC I,19
 LDC I,19
 CSP  WRS
 CSP  WLN
 LOC   130
 CSP  EIO
 UJP L16
L15 LAB
 LDA 1,13
 CSP  SIO
 LCA '      STACK IS EMPTY.'
 LDC I,21
 LDC I,21
 CSP  WRS
 CSP  WLN
 CSP  EIO
L16 LAB
L14 LAB
L12 LAB
 LOC   140
 LOD I,1,39472
 LDC I,1
 GEQ I
 FJP L17
 MST 2,4,4
 LOD I,1,39472
 CHK I,-1,30
 PAR I
 CUP P,2,PRINT012
L17 LAB
L10 LAB
 LOD B,1,281
 LOC   150
 LOD I,1,39924
 LOD I,1,296
 NEQ I
 AND
 FJP L18
 LOD I,1,296
 LOD I,1,39924
 LES I
 FJP L19
 LDA 1,13
 LOC   160
 CSP  SIO
 LCA ' MST STACK PUSHED. NEW TOP IS '
 LDC I,30
 LDC I,30
 CSP  WRS
 LOD I,1,39924
 MST 2,4,4
 LOD I,1,39924
 PAR I
 CUP I,2,FLDW0001
 LOC   170
 CSP  WRI
 CSP  WLN
 CSP  EIO
 UJP L20
L19 LAB
 LOD I,1,296
 LOD I,1,39924
 GRT I
 FJP L21
 LDA 1,13
 CSP  SIO
 LOC   180
 LCA ' MST STACK POPPED.  NEW TOP IS '
 LDC I,31
 LDC I,31
 CSP  WRS
 LOD I,1,39924
 MST 2,4,4
 LOD I,1,39924
 PAR I
 CUP I,2,FLDW0001
 CSP  WRI
 LOC   190
 CSP  WLN
 CSP  EIO
L21 LAB
L20 LAB
 MST 2,4,4
 LOD I,1,39924
 PAR I
 CUP P,2,PRINT014
L18 LAB
 LOD I,1,44
 LDC I,54
 EQU I
 FJP L4
 LOC   200
 LDA 1,13
 CSP  SIO
 LCA '**************************  ;START OF STATISTICS'
 LDC I,48
 LDC I,48
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC   210
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LCA ' PEEPHOLE OPTIMIZER STATISTICS:'
 LDC I,31
 LDC I,31
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   220
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,1,41536
 LOC   230
 LDC I,7
 CSP  WRI
 LCA ' JMPAS CHAINED'
 LDC I,14
 LDC I,14
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC   240
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,1,41540
 LDC I,7
 CSP  WRI
 LCA ' JMPAS REMOVED FROM SKIPS'
 LDC I,25
 LDC I,25
 CSP  WRS
 LOC   250
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,1,41544
 LDC I,7
 CSP  WRI
 LOC   260
 LCA ' MOVS COLLAPSED'
 LDC I,15
 LDC I,15
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LOC   270
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,1,41532
 LDC I,7
 CSP  WRI
 LCA ' TOTAL WORDS REMOVED'
 LDC I,20
 LOC   280
 LDC I,20
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LOC   290
 LCA ' INSTRUCTION COUNTS:'
 LDC I,20
 LDC I,20
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LOC   300
 LDC I,0
 STR I,1,41512
 LOD I,1,4332
 CHK I,0,285
 STR I,1,41516
 LOD I,1,4328
 CHK I,0,285
 ORD
 STR I,1,41548
 LOD I,1,41516
 LOC   310
 ORD
 LOD I,1,41548
 LEQ I
 FJP L23
L22 LAB
 LDA 1,23728
 LOD I,1,41516
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 LOC   320
 NEQ I
 FJP L24
 LOD I,1,41512
 LDA 1,40368
 LOD I,1,41516
 CHK J,0,285
 IXA 4
 IND I,0
 ADI
 STR I,1,41512
 LOC   330
 LDA 1,40368
 LOD I,1,41516
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,0
 NEQ I
 FJP L25
 LDA 1,13
 CSP  SIO
 LOC   340
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,40368
 LOD I,1,41516
 CHK J,0,285
 IXA 4
 IND I,0
 LDC I,7
 CSP  WRI
 LOC   350
 LDC C,' '
 LDC I,1
 CSP  WRC
 LDA 1,24872
 LOD I,1,41516
 CHK J,0,285
 IXA 15
 LDC I,15
 LDC I,15
 CSP  WRS
 LOC   360
 CSP  WLN
 CSP  EIO
L25 LAB
L24 LAB
 LOD I,1,41516
 ORD
 LOD I,1,41548
 NEQ I
 FJP L23
 LOD I,1,41516
 INC I,1
 CHK I,0,285
 LOC   370
 STR I,1,41516
 UJP L22
L23 LAB
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 LOC   380
 CSP  WRC
 LOD I,1,41512
 LDC I,7
 CSP  WRI
 LCA ' TOTAL INSTRUCTIONS'
 LDC I,19
 LDC I,19
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOC   390
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 CSP  SIO
 LDC C,' '
 LDC I,1
 CSP  WRC
 LOD I,1,41520
 LOC   400
 LDC I,7
 CSP  WRI
 LCA ' TXT WORDS OUTPUT TO LOADER FILE'
 LDC I,32
 LDC I,32
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LDC I,1
 CSP  CLK
 LOC   410
 LOD I,1,40360
 SBI
 LDC I,10
 DVI
 STR I,1,40360
 LDA 1,13
 CSP  SIO
 CSP  WLN
 CSP  EIO
 LDA 1,13
 LOC   420
 CSP  SIO
 LCA ' ****'
 LDC I,14
 LDC I,5
 CSP  WRS
 CSP  EIO
 LOD I,1,40364
 LDC I,0
 GRT I
 FJP L26
 LOC   430
 LDA 1,13
 CSP  SIO
 LOD I,1,40364
 LDC I,5
 CSP  WRI
 CSP  EIO
 UJP L27
L26 LAB
 LDA 1,13
 CSP  SIO
 LCA 'NO'
 LOC   440
 LDC I,5
 LDC I,2
 CSP  WRS
 CSP  EIO
L27 LAB
 LDA 1,13
 CSP  SIO
 LCA ' ASSEMBLY ERROR(S) DETECTED,'
 LDC I,28
 LDC I,28
 CSP  WRS
 LOC   450
 LOD I,1,40360
 LDC I,100
 DVI
 LDC I,3
 CSP  WRI
 LDC C,'.'
 LDC I,1
 CSP  WRC
 LOD I,1,40360
 LDC I,100
 LOC   460
 MOD
 LDC I,2
 CSP  WRI
 LCA ' SECONDS IN P-CODE ASSEMBLY.'
 LDC I,28
 LDC I,28
 CSP  WRS
 CSP  WLN
 CSP  EIO
 LOD I,1,40364
 LOC   470
 LDC I,0
 NEQ I
 FJP L28
 MST 2,4,4
 LOD I,1,40364
 PAR I
 CUP P,2,ERREX002
L28 LAB
 RET P
L3 DEF     41552
 STP